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AVANT PROPOS 


CYst line real he : le BASIC est le langage de programmation le 
plus repandu, 

Cependant* la reputation du L3ASIC n’est pas toy jours excellent^. On 
pent, par example, s’on rend re compte dans les uni versites et les 
grandcs £coles oil Ton enscigne pltilot le langage PASCAL qtie le 
km gage BASIC (dans certaines ecoles, le BASIC cst mcmc totalement 
mis a Tecart), 

La principals raison est que le PASCAL per met une program mat ion 
structuree, Mais le langage BASIC a <6voluc et a subi de nombreuscs 
ameliorations. P tenons I'cxempte de Pinstruct ion IF ... THEN ; 
lout au debut* Finstruction THEN ne pouvait etre suivl que par un 
numero de ligne* ce qui entrainait une multitudes d ! instruct ions de 
sout. Emu it c, on a pu mettre apres le THEN une scric d’ins- 
iructions. Actuellenient, presque tous les interpreteurs BASIC 
possedent Finstruclion ELSE. 

La demarche suivic pour le devcloppemcnt du BASIC GfA n’etait pas 
^implement d'ajouter de petites ameliorations. Le but etait pluiot 
de devclopper un langage BASIC entierement nouveau* qui devait 
repond re aux conditions suivantes : 


- Une program mat ion struct urec devait etre renduc possible dans 
tous les do mines, 

- Quelqu'un, qui avait deja programme en BASIC, devait pouvoir sc 
servir du nouvel interpreteur en peu de temps. 

- Les avantages du BASIC devaient Impcrativemcnt etre maintenus 
dans la nouvel le version. 



Avec le BASIC GfA, vous disposez U’un inter prctcur BASIC qui non 
settlement repond aux conditions ei-dessus, mais qui off re encore 
des avantages supplemental res ; 


1.'inter prctcur BASIC CfA est tres compact. II n'occupe que 55 
K octets environ de la place memoire (si precieuse) dc votre 

ATARI ST. 

- l/intcrprcieur possede line vitesse d 1 execution exception- 
nellement rapide. Ainsi une boucle vide FOR-NHXT comprenant 
10000 passages dure moins rfune demi seconds 

- Le BASIC GfA travaille avec one precision de 1 1 chiffres. 





Les anniis 


CHAPiTRE I. 


A vantages par rapport 
aux interpreteurs BASIC classiques 


Les differences fondamentalcs stun ait nombre de train : 


* En BASIC GfA* il n’y a pas de numeros de Eigne. 

* Cheque ligne de programme ne peut contenir qifime scule 
instruction. 

* II existe plusicurs instructions de structure nouvellcs pour le 
BASIC. 

Certaines instructions traditionnellcs ont one nouvelle syntaxe 
plus adaptee a la structure du BASIC GfA. 

La difference qui saute aux yeux, quand on parcourt le listing d’un 
programme ecrit en BASIC GfA, est Tabsence de numerotation des 
lignes, On est tenement habitue a ce qu'en BASIC, les lignes 
soient precedes d’un nurncro, qu’oit ne se pose meme plus la 
question : d qttoi sett done evtte numerotation ? : 

- Grace aux numeros de ligne, les instruciions GO TO, GOSUB mais 
aussi IF...TIIEN permettent dc se brancher a n’importe quel morceau 
du programme. 

- Quand les lignes sonl numerotees de dix en dix, comme e’est le 
cas couramment, on peut inserer plusicurs lignes entre deux 
instructions. 
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BASIC G/A 


- La recherche, Taffichage, la modification ou I’effacenient d’une 
par tie du programme est rendue possible. 

Les deux derniers points peuvent Ctre realises de bien mcilleurc 
fas?on grace a un bon editeur, qui fait partie du BASIC Gt'A. Le 
premier point peut egalemenl fit re resol u simp lenient, en empJoyant 
des etiquettes (label). 

De cette maniere, la numerotation des lignes devient superfluc. De 
plus, on economise ainsi de la place me moire. 

Commc nous Tavons cxpiiquc dans Pavanl-propos, le BASIC GfA 
autorise une programmation structuree. En outre, de nouvcllcs 
instructions ont etc ajoutees cclles deja existences : 

DO...LOOP 
WHILE...WEND 
, REPEAT...UNTIL 

PROCEDLJRE (avec des variables locales) 

Pour ameliorer la lisibilite d’un programme, il etait par ailleurs 
interessani de n’autoriser qu’une seulc instruction par ligne. 

Regard cz Pexcmple de programme qui suit ; il monire la nouvelle 
structure de I 1 instruction IF...THEN et met en evidence la clartc 

du listing: 

INPUT A 
IF A>0 THEN 

PRINT ’posiliP 


ELSE 

IF A=0 THEN 
PRINT ’nuT 


ELSE 


-2 - 







Les atoms 


PRINT ’n6gstir 


* 4 ■ 

END1F 
■ * * 

ENDIF 

Lcs points de suspension indiquent les domaines oil 1'on peui 
inserer pi us i curs autres instructions* sans pour cela modifier la 
structure globale. 






I 






General itcs 


CHAPITRE II. 

G£n£ralites 


l*n plus ilc r interpreter BASIC GfA, il y a sur la diSQUCUC un 
fichier portant 1c nom *GFABA$RO.PRG\ 11 s’agit de la version 
•RUN-ONLY* du BASIC GfA. Avec cette version, il est impossible 
d*ccrire dc nouveaux programmes, seuls dcs programmes deja 
exist ants peuvent etre charges et executes. Vous etes autorise a 
donner cctle version & d'autres personnel Ainsi, le cercle des 
uiilisatours do ST qui ne pcssede pas encore le BASIC GfA, ont la 
possibility d'titiliser vos propres programmes ecrits en GfA. 

tiemfin/ue: 

Le programme suivant permet de modifier la presentation du 
RUN-ONLY ou de lancer automaliquement un programme : 


* Inscrez iei une des deux lignes suivanles 
1 Presentation: 

’ Phiase$=chr$(27)VTIGFA-BASIC Run-Only* 
1 Autostart: 

* Phrase$=chr$(0)+ rt PROG RAM. BAS” 

* Ic texte ne pen! exeder <50 caracteres 
Open *U\#1 /’GFABASROTRC" 

Seek # 1,30 

Print #1,PhraseS 
Print #l,chrS(0) 

Close #1 
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Introduction a la pmgrammatian en BASIC G/A 


CHAPITRE III. 


Introduction d la programmation en BASIC GfA 


A pres avoir charge ie BASIC GfA a pnrtir dc la disquetlc, vous vous 
trouvez dans l'cditeur. Vous pouvez done immediatement commencer a 
programmer. Ayez cependam encore un peu de patience ! II vous esi 
lout d’abord necessairc de connaitre Pcnvironnemcnt du BASIC GfA ; 

Vous disposer de deux fenctre-ecrans, que vous pouvez utiliscr 
imlcpcndammcnt Unc dcs 1‘enetrcs represente fed it cur, que vous 
recon na it rez au menu silue sur la bandc superieure. L/autre fenetre 
est un ecran de restitution. C'est ici que sera afficlie lc result a! 
de I*execution du programme. 

* 

Si vous vous trouvez dans fediteur* vous pouvez acceder a l’ecran 
de restitution de trois faeons : 

* Execution du programme cn apparent si mult (moment sur lex touches 
c SHIFT> ei <F10>. m en ckoisisscmt Vopt ion RUN du mmu 

(he retour apres la fin de I'execution se fait en appuyant sur 

<retl:rn>). 

* Em phi de la touche <F9> on choix de 1'option FLIP. 

(Retour a Pediteur en appuyant sur une louche quelconque du 
clavier ou sur !c bouton gauche dc !a souris). 

* Em phi des touches < ESC > at < SHIFT> el < F9>, m choix de l'option 
DIRECT avec la souris. 

Cc faisant* vous vous placez en Mode Direct ; les ins!ructions 
entrees au clavier sent direetcmciU exceuiees sans etre inserces au 
programme. 
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Pour pouvoir lire le result at sur le moniteur video, le mode direct 
utilise Teeran de restitution (on quittc 1c mode direct en 
appuvant sur <ESC> puis sur <RETURN>, ou en tapant Pordre 
EDIT (abrev. ; ED}, ou encore par la fonction STOP 
(<SIIIFT>+<ALTERNATE>+<CONTROL>)) 

Royo/rs cel a sur un excmpte : 

Vous vous trouvez. dans Teditcur. Entrez les instructions 
suivantes : 

BOX 140,100,500,300 
PCIRCLE 320,200,100 

Executes nut intenant ce programme comme ccla est indiqu6 ci-dessus. 
Pour revenir a Pediieur, vous pouvez appuyer sui <RETURN> ou 
choisir I’option <RETURN> avec la souris, 

* 

En appuyant plusieurs fois de suite sur la touche F9, vous pouvez 
passer dTin 6cran a Pautre. 

Passez main tenant en mode direct par Tempi oi de <ESC> ou <SHIFT> 
el <F9> et lapez : 

PRINT AT(36,12);*BASIC GfA* 

Le r&ultal est immediatement affichc des que la touche <RETURN> 
est enfoncee. 

Vous pouvez quitter le mode direct grace nux touches <ESC> puis 
<RLTURN>, ou en utilisant Pinstruction EDIT. Les deux fen&res 
doivent maintenant vous 6tre familicrcs et nous pouvons nous 
consacrer a Petude detail Ice des possibilites de Pediteur. 
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Ucdimtr 


CHAPITRE IV. 


L'editeur 


GENERALITES. 


L’editeur qui a ele realise specia lenient pour le developpemeni de 
programmes est orienle vers l 1 utilisation des fenfitres, cn 
particulier pour les operations de blocs el fa recherche ou la 
substitution de parties dc programmes. 

Sur le bord super ieur dc Peer an se trouvent deux lignes de menu 
reset vees a La description des touches-foneliems ou au choix des 
differentes options avec la souris. Le rcste de Tecran est 
entferement disponible pour le programme. 

On peut cliaisir deux tallies differentes de texts en utilisant les 
touches <SHIFT> et <F8> ou en choisissanf respectivemcnt I’option 
TEXT 8 ou TEXT 16 avec la souris (uniquement avec un moniteur 
video monochrome). Avec la taille normale (TEXT 16), il y a 23 
lignes de programme ; avec la police dc caracteres plus petite 
(TEXT 8), on dispose de 48 lignes. Ce dernier mode permet d'editcr 
el de lister les programmes de maniere tres Iisible. 

Chaque ligne de programme ne contient qu’unc seule instruction 
BASIC. Une ligne de programme cotuient au maximum 255 carac- 
tcres ou 255 octets. Coniine par cxcmplc un nombre reel a virgule 
occupe 6 octets en mCmoire (et parfois meme 8 octets), le message 
d’erreur 'LIGNE TROP LONGUE’ peut apparaitre bien avant la 
saisie de 255 caracteres. 

Comme une ligne d’ecran ne peut contenir que 80 caracteres, le 
debut de la ligne disparait vers la gauche de I’ecran lors d'une 
saisie de plus de 80 caracteres, C’est uniquement la ligne affectce 
qui subit ce dcplacement. 
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l.c reslant du programme n’est pas modific sur Tecran. La saisic dc 
la ligne de programme une t'ois terminee, apres avoir appuye sur 
<RETURN> par exemplc, seals les 79 premiers carat teres dc la 
ligtie de programme sont reprRentes, eventual lenient suivis par 
le symbol q 'FLECffE VERS LA BROITE' qui indique que la ligne 
contient plus de SO caracieres el n’apparait done pas dans sa 
total ite sur Pdcran. 

Ui saisie de la ligne de programme s’effectue a pariir du clavier. 
JLes caracteres speciatix, qui n'oni pas de touche reservee, peuvent 
egalcment etre edites (voir annexe C). 

La Tin d’une ligne est obtenue en appuyant sur <RliTURN> ou sur 
une des commandes de deplacement du curseur qui entraine rabandon 
de hi ligne actuelle (voir plus has), 

A ce moment lft, la syntax© de la ligne est conlrolce et, le cas 
ccheant, le message d’erreur 'ERREUR DE SYNTAXE' apparait. 
La structure du programme est raise en evidence par decalage des 
bgnes d’instruction (indentation) ct les instructions cventuel- 
iement ccrites en abrege sent roecrites en entier (voir annexe A). 

Les differentes commandes de Tediteur peuvent elre classces en 
cinq categories : 


- Commandes de deplacement du curseur 

- Commandes de modification du programme 

- Commandes de recherche et dc substitution 

- Commandes de blocs 

- Autres commandes de menu 


Les differentes commandes vont main tenant ft re d&rites de facon 

detail lee. 
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L'edit cuv 


C OMMA N1>KS DFi DK PLACEMENT DU CURSEUR. 

<FLECHE VERS LA GAUC!IE> 

Deplace le curseur a T inter Leu r d*une ligne d'utt caractere vers 
la gauche. 


<FLECHE VERS LA DROlTE> 

Deplace le curseur a i'intcrieur d’une ligne d'un caractere vers 
in droite. 


<CONTROL>+<FLEC1IE VERS LA DROITE> 
PojUionne le curseur en fin de ligne. 

<CONTROL>+<FLECUE VERS LA GAUCHE > 
Posit ion ne le curseur en debut de ligne. 


<TAB> 

Deplace le curseur d’une tabulation vers la droite. Les 
differentes positions de la tabulation sent des multiples de 8 
et som indiquees par les traits verticaux dans la bande-menu 
pour les lignes de mo ins de 80 caracieres. 


<CONTROL>+<TAB> 

Deplace le curseur d’une tabulation vers la gauche. 
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<FLECHE VERS LE BAS> on <RETURN> 
TLace le curscur au debut de la ligne suivante. 


cFLECHE VERS LE HAUT> 

Place le curseur au debut de la ligne precedents. 


<CONTROL>+<FLECUE VERS LE BAS> ou <F7> 

Deplace le programme d’une page-ccran vers le bas et place le 
curseur au debut de ceue page (cette commands peut aussi 6tre 
obtenue en choisissant I’option TG DOWN’ du menu). 


<r COSTROL>+<FLECHE VERS LE HAUT> ou <SHIFT;>+<F7> 

Deplace le pi ogramme d’unc page-ocran vers le haul et place le 
curseur au debut de cetie nouvclle page (cette commando peut 
aussi etre obtenue cn clioisissanl I 1 opt ion ’PG UP* du menu). 


<HOME> 

Posilioitnc le curseur au debut de la page-ccran en train d’etre 
iraitee. Le listing est alors autooialiQuement formate 
(indentation, c’eswV-dfre decal age des instructions). 


<CONTROL^+<HOME> 

Place le curseur au debut du programme. 
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L'editeur 


<CONTROL >+<r Z> 

Place ie curscur en fin de programme, II est egalement possible 
de deplacer le curseur & Paidc de la souris. En choisissant une 
nouvellc position avec la souris et en la validant, on deplace 
le curseur a l’endroit de la Souris. Si, ce faisant, on quitle 
la Ugne courante, il s’en suit nature!lenient une verification 
dc la syntaxe. 


COMMANDS-S DE MODI FICATION DU PROGRAMME, 


<FS> 

En appuyant sur cette touche (ou en choisissant foption INSERT 
ou OVERWRT avec la souris), on passe d’un mode d’ecriture ft 
urt autre : le mode Insert (mode insertion) ct le mode Overwrite 
(mode sur impression). 

Le mode insertion, dans Icquel on se trouve lors de rappel de 
Peditcur, vous permet d'insurer du tcvte dans une ligne deja 
cxistante* Les caracteres dc droite son! decales d’autant vers 
la droite, 

Dans le mode suriinpression, le caractcre sous le curseur est 
rcmplace par le nouveau caractcre saisi au clavier. 


<BA CKSPACE> 

Efface le caractcre situe a gauche du curseur, Le curscur, le 
caractere sous le curscur et tous ceux de droite sont decales 
d*un cran vers la gauche. 
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<DELETR> 


Efface Id earactere sous le curseur. Tons les caracteres de 
droite sont decales d’un cran vers la gnu die. 


<INSERT> 

Deplace la ligne, au debut de laquelle se trouve le curseur, et 
toutes cel les qut suivenl, d’une ligne vers le bas. Le curseur 
lui-mdme ne bouge pas et se trouve done au debut d’une ligne 
vide, prat pour ecrire une nouvellc ligne de programme. La 
nouvelle ligne une fois entree et la touche <RETURN> enfon- 
cee, ce processus se repote h nouveau auiomatiquement, jusqu’a 
ce que la touche <RETURN> soit enfoncec en debut d’une ligne 
vide ou jusqu’a ce que la ligne cotirante soit quittce par une 
commando de deplacement du curseur. 


<UNDOj> 


Lffectue toutes les modi Heat ions a l 1 inter i cure d’une ligne par 
retour en arriere et remet !a ligne dans Tetat (tans lequci die 
se trouvait lorsque le curseur a attcint la ligne par une com¬ 
mands de deplacemcnt du curseur. Cette commando n’est effective 
que si la syntaxe de !a ligne n’a pas encore etO verifiee. 

Tar ailleuts, la page-6cmn est reccrite et le listing est 
formate {indentation), comme pour la touche <HOME>. 

Le mode insertion de ligne, s’il a etc mis en place grace a la 
touche <INSERT> par exemplc, est deoonnecte. 

£n mode direct, UNDO perniet d'obtcnir la derniere ligne entree. 
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L'cditeur 


< CONTROL^+< DELE1'E> 

Efface de fagon irreversible la ligne ou se irouve le curseur et 
deplace sinuiltancment toutes les lignes suivantes d’unc ligne 
vers 1c ha lit, Le curseur resie sur la m&me ligne el se Irouve, 
aprfis execution de la commando, an debut de la ligne qui suivait 
celle qui vient d’etre cffacce. Cette oomninnde ne peut pas etre 
'ratlrapce par <UNDO> ! 


COMMANDES DE RECHERCHE ET DE SUBSTITUTION. 


<T6> (m FIND du menu) 

La premiere ligne du menu est cffacce et il apparait *FIND 
Vous pouvex y entrer une chaine de caracteres a rechcrchcr 
faisant au maximum 60 caracteres de long, La chaine entree peut 
Ctre enrrigee par <DELETE> et <BACKSPACE>. Avec les 
touches de deplacement du curscur ’DROITE* et 'GAUCHE*, on 
peut atieindre pas a pas n’imports quel caractere de la parlte 
de la chaine dej& ecrile. Avec les touches ’VERS LE HAUT 
et *VERS LH BAS’, on positionne le curseur respect ivement 
a la fin et au debut de la chaine de caracteres. 

A pi es validation dc la chaine rccherchce par <RETURN>, le 
'curseur se positionne au debut d’une ligne conlenant cette 
chaine ou en fin de programme si la chaine n’est pas trouvee. 

La recherche commence toujours a partir de la ligne situe en 
dcssous du curseur dc programme. 11 cst done astucieux de 
placer le curseur en debut de programme par <CONTROL> 
+<HOME> avant d’appder la commande FIND. 

La recherche dcs autres lignes dans lesquelles se trouvent la 
chaine de caractere recherchee e$t possible par <CONTROL> 
+<F> (voir plus loin). 
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Si l’on s’est trompg, on pent sortir de la command© FIND par 
<ESC> suivi de <RETURN>. 


<SHtFT>+*F6> (= REPLACE du menu) 

La premiere ligne du menu est effacee el il apparait ’FIND :\ 
Puis, on entre la chaine de caractcres com me pour la command© 

’FIND’. 

Ensuite, la deuxieme ligne du menu est cgalemenl effacee et il 
apparait ’REPLACE lei aussi, on peut entrer unc chaine ay ant 
au maximum 60 caractercs avec les memes possibilites de 
correction Quo pour ’FIND’. La substitution de la premiere 
chaine de caractercs par la seconde a lieu lorsque les touches 
<CONTROL> + <R> sont enfoncees (voir plus loin). A part 
eela, le processus est le memo que pour ’FIND’. 

* 

11 faut encore noter quo la commando 'FrND’ aussi bien que 
'REPLACE 1 tiennent comple des minuscules et des majuscules. 
Cela signifie qu’une chaine n’est trouvee que si elle corres¬ 
pond exnctement a la chaine recherchce. 


<CONTROL>+ <F> 

Recherche la chaine de caracteres qui a ete entree lors de la 
eommande ’FIND’ ou ’REPLACE’. 


La chaine recti e re hec rcste en m£moire aussi longtcmps qu’une 
nouvelle recherche n’est pas effect uee. 

La recherche commence & partir de la ligne en dessous du 
curseur, elle n'est done pas cffcctucc dans la ligne ou se 
trouve le curseur. Apres le processus de recherche, le curseur 
se trouve au debut d’unc ligne contenant la chaine recherchee, 
ou bien, si la chaine n’a pas etc ren con tree, il se positionne 
en fin de programme. 
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< CO NTROL>+<R> 

Recherche la chaine de caracteres enregistree par la commande 
'REPLACE’, on j emplace la chaine recherchee par la chainc a 
subslituer. 

Si cette commande est effectuee dans une ligne ou se trouve la 
chainc rechcrchce, la substitution a lieu (la substitution pout 
naturellcmcnt £tie rattrapee gr&ce h la commande UNDO, aussi 
longtemps que le curseur se trouve sur la ligne en question). 

Si cette comrrmndc est effectuee dans one ligne nc contenant pas 
la chaine recherchee* elle a le mcme effet que la commande 
<CONTROL>+<F>, ce qui sign if ie qu’on recherche la prochaine 
ligne con tenant la chainc dc caracteres vouluc (si Ton ne 
souhaite pas effectucr de substitution dans une ligne oh 
apparait la chaine rechcrchce, il suffit de poursuivre la 
refeherche par <CONTROL>+<F>), 


COMM ANDES DE BLOCS. 


<SWFT>+<F5> BLK STA du menu) 

Reptre Ie debut d'un bloc. 

Un bloc est une partic du programme et est compose de lignes de 
program me completes et successive. 

Si la commande BLK STA (Block Start) est choisic, le debut du 
bloc correspondra au debut de la ligne oti se trouvail le 
curseur avant d’effectuer cette commande. 
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<F5> (= BLK END du menu} 

Repere la fin d'un bloc. 

La fin du bloc correspond au debut de la ligne ou sc trouvait 
le curseur. Cela signifie que la ligne du curscur ne fait pas 
partie du bloc. 

Lin bloc n’est defini que si le debut et la fin du bloc otu etc 
repcrcs. Le bloc est alors mis en evidence par un affichage 
different. 

Un bloc et sa representation pen vent etre effaces cn fas sail i 
eoinckler sur la meme ligne Se debut et la fin du bloc. 


<F4> (= BLOCK du menu) 

#■ 

Chvix de Voperation de bloc . 

Si Fun au moms dcs reperes manque, il apparait le message 
d’erreur ’BLOC ???’ {pour continuer, appuyer sur la Souris), 
sinon, la premiere ligne de menu est remptaccc par un autre 
menu comprenant plusieurs choix possibles qui seront etudies en 
detail un peu plus loin. 

Si la command© a ete choisie par erreur, on peut revenir en 
arriere par action sur la souris. 

<C> {= COPY) 

Le bloc defini est recopie avam la ligne ait se trouvait le 
amettr avant le choix de la command e 'BLOCK'. 

Ceci n’est nature!lenient possible que si le curscur se Erouve 
en dehors du bloc. Sinon, le message d’erreur 'CURSOR IN 
BLOCK' 1 (curseur dans le bloc) apparait (pour continuer, 
appuyer sur la souris). 
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<M> (= MOVE) 

De place le bloc avant la tigne oit se trouvail !e curseur avanl 
k choix de la commondc *BLOCK\ 

Comme pour la commandc ’COPY*, cela n’est possible que si le 
curseur se trouvait cn dehors du bioc, Sinon, le message 
tTerreur 'CURSOR IN BLOCK* (Curseur dans 1c bloc) apparait 
(pour continuer, appuyer sur lu souris), 

(En rcalitc, un ’MOVE 1 s'effectue en deux temps : un 'COPY*, 
puis un DELETE’). 

<W> (= WRITE) 

Sauvegardc le bloc sur disqucltc dam un fichicr TEXT (JLST). 

* 

<L> (= LLIST) 

Imprime le bloc sur imprimatur. 

<S> (= START) 

Posilkmne le curseur en debut de bloc . 

<E> (= END) 

Posit ionne le curseur en fin de bloc. 

<CONTROLj>+<D> (= DEL) 

Efface le bloc de fa$on irreversible. 
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<//> (= HIDE} 

Efface les repenes de bloc. 


AUTRES CO MM ANDES DU MENU. 


Le choix de n’importe quelle option du menu pout etre effcctue 
aussi bien par la touehe-fonction correspondame quc par validation 
avoc la souris. 

<EI> LOAD) 

Charge tin programme h panic de la disquette. 

Le suffixe *.BAS csl utilise par defaut. 

Tout programme qui se trouverak eventiicllemciit dans fediteur 
est efface sauf si Ton clique dons 'Annuler* du sclecicur 

d’objet. 


<suirr>+<Fi> save) 

Sauveparde le programme acluellemcni dans 1'edit cur stir 
disquette. 

Si aucune extension n’a etc precisee, le suffixe .BAS est 
automat iquement choisi. 


<F2> f= MERGE) 

Charge on fichier TEXT & partir de la disquette (*.LST par 
defaut) et insere les lignes correspondanles dans le programme 
avant la ligne ou se trouve le curseur. 
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Vediteur 


S’il y a erreur de syntaxe, le signe ==> apparait m debut dc 
la lignc incrlminee. 

<r S/I I FT>+<F2> f- SAVE,A) 

Smvegarde le programme comenu dans I'editeur sur disquettc. 

Le suffixe XST esl pris par dcfaut. 

<F3> (=LUST) 

Son toui te programme sur impnnumie. 

I. 1 impress ion du listing peut etre interrompue en appuyant sur 
les touches <Alternate>+<Control>+<Siiift>. Si I'imprimantc 
n*est pas connected ou <OfT-iine>„ rediteur est a nouveau 
disponible apres 30 secondcs environ. 

* 

<SMFT>+<F$> (= QUIT) 

Pertnet de quitter Ibuerpreieur et de revenir au fiwvttu du 
GEM. 

<S1IIFT>+<F4> (= NEW) 

Efface te programme cmienu en memotre. 

<F9> (= FLIP) 

Passe sur la fenetre de restitution (voir rinlroduetwn). 

<F1Q> {= TEST) 

Teste si Unites les houcles stmt refermges dam Vordre. 
<SHIFT>r<FW> (= RUN) 

Execute tc programme. 
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RESUME DES COMMA N OES DE L’EDITEIJR. 


( A signifie CONTROL) 


FLECHE GAUCHE 
FLEC1IE DROITE 
A FLECHE GAUCHE 
A FLECHE DROITE 
TAB 
A TAB 

1I.ECHE EN BAS 
RETURN 

FLECHE EN I1AUT 
A FLECHE EN BAS 
PG DOWN 

"FLECHE EN IIAUT 

PG UP 

HOME 

A MOML 

A Z 

PS 

backspace 

DELETE 

INSERT 

UNDO 

A DEL 

FIND 

REPLACE 

Ap 

A R 

BLK STA 
BLK END 
BLOCK 
C 
M 
W 
L 


: Curseur d'un cran a gauche 
; Curseur d’un cran a droitc 
: Curseur cn debut de ligne 
: Curseur en fin dc Hgne 
: Curseur sur tabulation de droitc 
: Curseur sur tabulation de gauche 
: Curseur d’une ligne vers le bas 
: Curseur d’une ligne vers 1c bas 
: Curseur d’une ligne vers le haut 
: Page-ecran suivante 
: Page-ecran suivante 
: Page-ecran precedenle 
: Page-ecran precedente 
: Curseur en debut de page 
: Curseur en debut de programme 
: Curseur en fin de programme 
: Insertion/Surimpression 
: Retour du curseur avec ef fa cement 
: Effacemcnt du caract. sous curseur 
: Insertion d’une ligne 
: Rctour ft 1’ctat precedent 
: Ef fa cement de la ligne 
: Saisie de la chaine recherchce 
: idem + saisie de la nouvelle chaine 
: Recherche d’une chaine 
; Substitution d’une chaine 
: Marquage du debut du bloc 
: Marquage de la fin du bloc 
: Choix de Toperation dc bloc : 

: Copie de bloc 
: Dcplacemem de bloc 
: Sauvegarde de bloc 
: Impression de bloc 
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Vhllieur 


s 

: Curseur en debut de bloc 

E 

: Curseur en fin dc bloc 


: Effaccment de bloc 

H 

: Ef fa cement des marques de bloc 

LOAD 

: Chargement du programme 

SAVE 

: Sauvegardc du programme 

MERGE 

: Insertion d’un fichier TEXT 

SAVE, A 

: Sauvegardc sur fichier TEXT 

LUST 

: Sortie sur imprimante 

QUIT 

: Retour au Desktop 

NEW 

: EfFacement du programme 

FLIP 

: Passage sur fenetre de restitution 

DIRECT 

: Mise en place du mode direct 

TEST 

: Test de validite des boucles 

RUN 

: Execution du programme 
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CHAPITRE V. 


Les op€rateurs 


On distingue les operations numeriques et les operations cntre 
chaines de caraeleres, salon que le resultat cst un nombre ou une 
chainc de caracteres (string). 


11 y a deux opEratcurs de chnfncs de eiirncteres ; 

♦ Iji cmcatenotion de chafnes de caracteres par I'operaleur .* 

Les chaincs de caracteres sont mises a la suite les unes des auties 
pour^n’en former plus qu'urtc. 

Excrnplc ; Si A$=’BASIC\ BS=*-* et C$=*Gf A\ la concatenation 

des 3 ctiaines donne : AS+BS+CS - 'BASlC-GfA\ 

* Les fauctions sue Ics chatties de catacleres ; 

lefts, RIGHTS, Ml OS, SPACES, STRINGS et STRS, 

Ces fo net ions seront decrites en detail dans 1'annexe A. 


II y a 4 types d’oiitlratenrs mimeriqiies : 

1. Les operateurs arithm&iques 

2. Les operateurs de comparaison 

3. Les operateurs logiques 

4. Les fonctions numeriques 


Les fonctions numeriques sont examinees de fa?on detail lee dans 
['annexe A. 
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Les opl'i'Qteun 


I. L ES QFERATEURS ARH HMF.TiQUES. 

Le BASIC GfA connait les operations arithmetiques suivantes 
(operations de caleul): 

A Puissance. 

Par example : 2 A 3=2*2*2=8 

Signe negatif* 

* Multiplication. 

/ Division. 

D1V Division entiere, 

CO On prend la pariie entiere du result at 

de la division normale. 

* On peut done ecrire : 

A DIV B * A\B = TRUNC(A/B). 

Ex ; 3.7 DIV 0.7 - 5 

-17 DIV -4*4 

MOD Modulo. Lc modulo correspond au reste de la division entiere. 
Ainsi ; 

A MOD B = FRAC(A/B)*B 
Exj, 3.7 MOD 0.7 = 0.2 
-17 MOD -4 - -1 

+ Addition 

Soustraction 


2. LES QPEKATEURS DE COMFARAISON. 


Les operateurs dc compn raison s’appliqucnt a deux expressions 
numcriqucs ou & deux chaincs dc caracleres. 
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Suivam la valeur boolccnne prise par le r&ultat (vrai ou faux) 
011 attribut a ce resultat la valeur -i (vrai) ou 0 (faux) (comrae ce 
resultat est dans tons les cas un nombre, la comparison de deux 

chnines de caracteres est aussi consider^ convme une operation 
numerique). 

O n dispose dex operateurs de comparaison suiv ants : 

33 egal. 

> siriclement superieur, 

< striclement inferieur. 

<> different de, 

>= ou => superieur ou egal. 

<= ou -< inferieur ou egal. 


hBlSLQuetqucs e xempt#,y de com u araison d’exnressions mmerigu es : 


PRINT 3-1.5*2 
PRINT 5>5 
PRINT loll 
PRINT S <-8 


dorine la valeur -I (vrai) 
donne la valeur 0 (faux) 
donne la valeur -1 (vrai) 
donne la valeur -1 (vrai) 


La coniparaison entre deux ehaines de caracteres obeit aux regies 
suivantes : 


* Dcux^ ehaines dc caracteres som egales, si dies som rigoureu- 
sement irientiques (tous les caracteres soot prig en compte, roStive 
les blancs ct la ponctualion). 

Ainsi par example : 1 I , 7 ?:: , = , \ 7 
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Les oper at curs 


* Pour la comparison de deux chaines de caracteres, Hiiterpretcur 
precede de la nianiCre suivante : 

L’intcrpr6teur compare les valours des codes ASOI {voir annexe C) 
dcs deux premiers caracteres des deux chaines. SI ces valeurs sent 
dilYcrentes, alors la chaine avec le code ASCII le plus elev£ esl 
’super ieure’ a Pautre. 


Si les valeurs sent identiques, on compare les deux codes ASCII des 
deux caracteres su wants, el ainsi de suite jusqu’ft ce que ou bien 
les deux caracteres sent different^, ou bien la fin d’une des deux 
chained a &e atteinte. Dans ce dernier cas, la chaine la plus 
longue est la plus ’grande*. 


Void Qudmies examples iHast rant s ce gn i pos : 


PRINT CGfA’ > *GfA ’) 
PRINT (’ 123 ’ < ’ABC) 
PRINT Cabc’ < ’ABC) 
PRINT (’May 1 > ’Mai’) 
PRINT (’ Z’ > ’A *) 


donne 0 (faux) 
donne -1 (vrai) 
donne 0 
donee -1 
donne 0 


T ITS OPERATEDRS LOGIQUES. 

Les opera tours logiques permettent de relier entre etles des 
expressions Ou des relations entre expressions. 

En regie generate, les opcratcurs logiques s’appliquem ft des 
variables boolecnnes (unc variable booleenne peut prendre deux 
valeurs : Vrai ou Faux) et donne un rcsultat egalcment boolccn. De 
plus, on atlribue ft toute expression nunierique differentc de 0 la 
valeur Vrai et a toule expression numerique egale a 0 la valcur 
Faux. 

Pour y voir plus clair, nous allons maintenant examiner les 
differents operateurs logiques un par un. Par la suite, v 
sigmfiera vrai et f sera Pabreviation de faux. 
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AND (E'l logique) 

Lc resultat d'un AND est sculemcnt v, si tous les deux 
arguments sent v : 


A B A AND B 


V V V 

v r r 

f V f 

f f f 

Exemplcs : 

PRINT 3=3 AND 4>2 donne -I (v) 
PRINT 3>3 AND 5>3 donne 0 (f) 

#■ 


OR (OU logique (non exclusif)) 

Le resultat d’un OR cst seulenient f, si tous Ics deux 
arguments sent f: 


A 

B 

A OR B 

V 

V 

V 

V 

f 

¥ 

f 

V 

V 


f f f 

Exemples : 


PRINT 'AVa* OR 3=5 donne -1 (v) 
PRINT 2>7 OR 10=20 donne 0 (f) 
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Les opcraieurs 


XOR (OU exclusif) 

Le results t d’un XOR est f, si les deux arguments ont la 
raeme valeur : 


A B A XOR B 


V v f 

V f V 

f V V 

f f f 

Examples : 

PRINT 3=3 XOR 6=6 
PRINT 3>S XOR 3<5 


donne 0 (f) 
donne -1 (v) 


NOT (Negation) 

Elle inverse la valeur de la variable booleenne. 


A NOT A 


v f 

f v 


Example : 

PRINT NOT 5>7 donne -1 (v) 
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IMP (Implication) 

L'implication est settlement f, lorsque quelque chose de 
vrai entraine quelque chose de faux. 


A B 

A IMP B 

V V 

V f 

f V 

f f 

V 

f 

V 

V 

Exemples : 



PRINT 3-5 IMP 2>3 donne -I (v) 

PRINT 4>2 IMP 1 = 1*2 donne 0 (f) 

TRINT 3<4 IMP 5=5 donne -1 (v) 

EQV (Equivalence) 

V equivalence est identique a (A IMP R) AND (B IMP A). 


A B 

A EQV B 

V V 

V f 

f v 

f f 

V 

f 

f 

V 

Exemples : 



PRINT *A EQV 3=3 donne ~1 (v) 

PRINT 3+3>8 EQV 2+2=4 donne 0 (£) 
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Les operateurs 


Les operate urs logiques sont principalcmcnt utilises pour per met Ire 
diffdrenls deroulements possibles d’un programme, scion la valcur 
booleenne {Vnti ott Faux) liee A la comparaison de deux expressions 
(grace aux instructions IF...THHN..XLSH et EXIT IF). 

Les opcrateurs logiques peuvent aussi servir & tester une serie de 
bits, comma nous aliens le voir main tenant ; 

Les operandes auxquels peuvent s’appliquer des operateurs logiques 
doivent etre compris entre -2147483648 et +2147483647 > car les 
opcrateurs logiques travail lent avec des mots de 32 bits (pour la 
representation des nombres n6gatifs, on utilise la complementation 
a deux). 

Les operandes sont reduits a des nombres entiers et traites bit par 
bit Chticun des 32 bits du resultat est obtenu cn appliquant Tun 
des opcrateurs decrits ci-dessus aux bits correspondants des 
operandes. 1 signifie Ici v (vrai) et 0 f (faux). 


Cela va se clarifier avec Texe-mp l e qui suit : 


PRINT 29 AND 267 a pour resultat 9 

00000000 00000000 00000000 00011101 - 29 

00000000 00000000 00000001 00001011 - 267 

00000000 00000000 00000000 00001001 = 9 

PRINT -8 EQV 30 a pour resultat 25 

11111111 11111111 11111111 11111000 - -8 

oooooooo 00000000 00000000 00011110 - 30 

00000000 00000000 00000000 00011001 = 25 
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PRIQRITE DES OPERATEURS. 

Les operateurs smt trades dans t'ordre suivant : 


() 

Les parentheses sont prioritaires sur tout le 
reste. Elies pcrmcttcnt de realiser n’importe 
quelle operation. 

A 

Puissance. 

+ 1 - 

Sifines. 


Multiplication et division. 

DIV t \, MOD 

Division entiere et modulo. 

*», - ' 

Addition et soustraction. 


Operations de comparaison. 

NO 1% AND, OR, 
XOR, IMP, EQV 

Operations logiques, 
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ANNEXE A. 


Instructions et fonctions 


Cette annexe coot tent !a description de toutes les instructions et 
fonctions dispcnibles, dans Fordre alphabetique. 

La difference entre instruction et or cl re, qui avait on sens 
historiquement, est desormais levee (il etait d’usage d’appeler 
ordre ce qui concernait 1c mode direct et qui contribuait S 
I’elaboration des programmes. Les instructions, par contre, 
s'utilisaicnt a Fintcrieur (fun programme. Comma toutes les 
instructions pcuvenl etre employees aussi bicn en mode direct que 
dans un programme, cette distinction n’est plus nccessaire). 

La description des instructions s’organise en cinq parties, cdle 
des fonctions en qua t re : 

1. Syntaxc : 

lei esl deer it le format de I* instruction ou de la function, 

Les mots ecrits en majuscules sont des mots-cle$. 

Les expressions entre crochets sont optionnelles, c'esE-n-dire 
facultalives. Trois petits points indiquent que F expression 
qui se trouve avant pent etre repet ee autant de fois que Ton veut. 

Les expressions qui interviennent dans le format de 1’instruction 
sont expliquees dans la suite de la description. 


2. Abr6v. : 


Presque toutes les instructions ont unc abreviatlon. On donne ici 
I’abreviation mini male. 
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Ainsi, plutftt que de taper Pinstruction PRINT en entier, i[ suffil 
d’entrer un P. l/editeur comprend na turd lenient aussi PR, PR I, 
PRIN et bien stir PRINT. Apres avoir effeclue le contrdle 
synlaxique, Peditcur remplace les abreviations evcntuclles par 
les instructions entities corresponds ntes. 

Cette partie est inutile pour les fonctions, car le nom d'une 
fonction doit ton jours Stre entre dans sa total it e. 


3. Exemple : 

Dans cette partie, or present© un exempie simple de programme. 

D'une part, Pexemple doit mettre en evidence les differences 
syntaxes possibles de I’instruction. 

O’autrc part, Pexemple sert & concretiser P utilisation de 
P instruction ou de la fonction. 

Si, a pres Pexplication de Pinstruction ou de la fonction, dcs 
doutes subsisted quant a son crop lot ou son ut title, il est 
conseille de taper et de tester sot-mSme Pexemple fourni. 

Comme certains exemples utiliseni des boucles sans fin, il est 
important de savoir quo Pon peut arreter ou Interrompre Pexe- 
cution d’un programme par Paction $imultnn£e sur les trois touches 
<CONTROL>, <SH1FT> ct <ALTERNATE>. 


4. Fonction ; 


Decrit en peu de mots quelle est Putilisa!ion de Pinstruction ou 
de la fonction (c*est4-dire ce que fait Pinstruction ou la 
fonction). 
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5. Explication ; 

Dam cette par tie, on explique de fagon detail lee ce qu*il est 
important de connaTtre pour la mise en application de Pinstruction 
ou de la fonction. 

Si on peut preciser le domaine duplication de I*instruction, 

Instruction I/O (relative aux entrees/sorties) 

Instruction graphique 
Instruction arithmetique 
Instruction de structure 

ce dernier sera precise dans 1’en-tSte de la description. 

Dam la description cancer mint les instructions graph iques, nous 
supposons que Pordinateur est connecte & un moniteur-vldeo 
monochrome de haute resolution. Celui-ci peut representer en deux 
couleurs (noir & blanc) 640 x 400 pixels. 

II est k notcr que pour des resolutions graphiques moyennes. le 
nombre de pixels est settlement de 640 x 200 (en quatre couleurs), 
ct pour dcs resolutions encore plus petites, il n’est que dc 320 x 
200. Dans ce dermier cas, on dispose de 16 couleurs. 


MSTE DBS INSTRUCTIONS ET DES FONCTIONS (Annexe A) 


ABS 

ADD 


DIV 


DOJjOOP 


ALERT 

ARRAYFILL 

ARRPTR 


ELLIPSE 

END 


DRAW 

EDIT 


ASC 

ATN 


BASEPAGE 


BGET 

BINS 


EOF 

ERASE 
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BITBLT 

ULOAD, BSAVE 

ERR 

BMOVE 

BOX 

ERROR 

BPUT 

EVEN 

C: 

EXEC 

EXIST 

CALL 

EXIT 

CHAIN 

EXP 

CHOIR 

FALSE 

FATAL 

Cl I DRIVE 

FIELD 

C\IR% 

FILES 

CIRCLE 

FILES ELECT 

CLEAR 

FILL 

clearw 

FIX 

CLOSE 

FOR...NEXT 

CLOSEW 

CLR 

FORM INPUT 

CLS 

FORM INPUT AS 
FRAC 

COLOR 

FRE 

CONT 

FULLW 

COS 

CLSCOL, CLSLIN 

GET 

CVL CVL, CVS, CVF, CVD 

GET (RcL Oat.) 

DATA 

GOSUB 

DATES 

GOTO 

DEC 

DEFNUM 

GRAPHMODE 

DEFFILL 

HARDCOPY 

DEFFN 

HEXS 

DEFLINE 

HIDEM 

HI MEM 

IF 

DEFUST 

INC 

DEEM ARK 

INFOW 

DEFMOUSE 

INK EY$ 


-36 - 




Annexe A 


DEFTEXT 

INP 


INP? 

DFREE 

INPUT 

DIM 

INPUT * 

DIM? 

INPUTS 

DIR 

INSTR 

DIRS 

INT 


KILL 

LEFTS 

LEN 

LET 

LINE 

1.1 NE INPUT 
LINE INPUT # 

LIST 

LL1ST 

LOAD 

LOG 

LOCAL 

LOF 

LOG, LOG 10 
EPOS 

LPRINT 

LSET 

MAX 

MENU 

MIPS 

MIN 

MKDIR 

MK IS,MK L$,MKSS ,MKFS ,MK DS 

MONITOR 

MOUSE 

MOUSEX, MOUSEY, MOUSEK 

MUL 

NAME 


P0LYLINE,“F1LL*-MARK 

POS 

PRINT 

PRINT # 

PRINT (#) USING 
PROCEDURE 

PUT 

PUT (reL Dat.) 

QUIT 

RANDOM 

RBOX 

READ 

RELSEEK 

REM 

RE PE AT...UNTIL 

RESERVE 

RESTORE 

RESUME 

RETURN 

RIGHTS 

RMDIK 

RNP 

RSET 

RUN 

SAVE, PASVE 
SEEK 

SETCOLOR 

SETTIME 
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NEW 

GCT$ 

ODD 

OK..GQSUB 

ON BREAK (CONT, GOSUB) 

ON ERROR, ON ERROR GOSUB 
ON MENU BUTTON 
ON MENU GOSUB 
OPEN 

OPENW 

OPTION 

OPTION BASE 0/1 

OUT 

OUT? 

PAUSE 

PCRJBOX.PQRCLE^EJLUPSE 
PEEK, DPEEK, LPEEK 

PI 

PLOT 

POINT 

POKE, DPOKE, LPOKE 


SGET 

SGN 

SHOWM 

SIN 

SOUND 

SPACES 

SPC 

SPOK EjSDPOKE^SLPOK E 

SPRITE 

SPUT 


SQR 

Slop 

STRS 

strings 

SUB 

SWAP 

SYSTEM 

TAB 

TAN 


TEXT 

TIMES 

TIMER 

TJTLEW 

TROFF 

TRON 

TRUE 

TRUNC 

TYPE 


UPPERS 

VAL 

VAL? 

VARPTR 

V DIBASE 

VOID 

VSYNC 

WAVE 

WHILE... WEND 
WRITE (#) 
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LISTE DES 


ADDRLN 

ADDOUT 

BIOS 

CONTRL 

GB 

GCONTRL 

GEMDOS 

GEMSYS 

GINTIN 


INSTRUCTIONS ET FONCTIONS (Annexe E) 

GINTOUT 

INTIN 

INTOUT 

PTSIN 

PTSOUT 

VDISYS 

WINDTAB 

XBIOS 
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I'ONCriON ABS 

Syntax? ; 

ABS(x) 

Exempt ex : 

A=-2329 

PRINT ABS(A) 

PRINT ABS(&X10I0) 

PRINT ABS(3*(-7)) 

Fonction : 

Retoume la valour absolue de x. 

Explication : 



x est une expression mimerkjue quelconque, 

aDS(x) est la fonction nmthematique valeur absolve. La valeur 
absolve dTme expression numerique est toujours super ieurc on £ga!e 

a 0. Elle vaut: 

- si x>0, alors ABS(x)-x 

-si x-0, alois ADS(x)=0 

- si x<0, alors ABS(x)=-x 
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INSTRUCTION ARITHMETIQUE ADD 

Syntaxe : 

ADD var,n 

Abrev.: 

AD 

Exemplc : 

T=TIMER 

FOR l%=i TO 10000 

ADD A%,5 

NEXT 1% 

PRINT (TIMER-T)/200 

A%=0 

T=TIMER 

FOR f%=l TO 10000 

A%=A%+5 

NEXT 1% 


PRINT (TIMER-T)/20G 

Fonction : 

Additionne n a la valeur de var. 

Explication : 



*mr doit etre une variable munerique ou on element d’un tableau 
numcrique. V est une expression numerique. 

ADD var,n est identique a var-var+n. L’a vantage dc rinstruction 
ADD reside dans la vitesse d’execution (testez Pexcmple !)■ Ainsi, 
rutilisation de rinstruction ADD permet d'augmenter sensiblement 
la vitesse tfexecution, qui par ailleurs est dejii ires grande (dam 
noire excmple, elle varie presque du simple au double). 
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INSTRUCTION GRAPHIQUE ALERT 


Syntaxe : 

ALERT a,mstring,b,bstring,var 

Abrew : 

A 

Exemple ; 

M$= ,, AlorsjCoiriment ga va? n 

Alert 2,M$,l, ,l bien]mal",B 

PRINT B 

Fonciim : 

Met en place une boite d’alarme au centre de 
l’ecran. 

Explication : 



Avcc une boite d’alarme, on pent proven ir l 1 utilisateur, ie 
questionner dls lui donner des indications. 

'a 1 per met dc choisir le symbole qui sera represente a I’intericur 
de la Tenet re d’alarme : 0=aucun, l=! t 2=?, 3-STOP. 

'nmring est une expression alpha numerique qui contient le texte 
principal. On peut representor au maximum 4 lignes dc texte de 30 
caracteres chacune. Les lignes sont scparces dans la chaine de 
caracteres par le caractfcre T . Lc cas echeant, les lignes sent 
tronquecs ou ignorees. 

'bstring est tine expression alpha numerique qui contient le texte 
relatil & chaque bouton (3 au maximum). Les messages sent comme 
preccdemment separes par le caractere !. Chaque message est limite 
a 8 caracteres. La variable b (0,1,2,3) indique quel bouton sera 
represents plus intensement. Ce bouton peut ensuitc it re valider 
par la touche <RL'I URN>. Enfin, var contient le numcro du bouton 
qui a ete actionne. Pour une meilleure comprehension de cette 
instruction, il est for lenient conseille d’entrer au clavier 
Fexemple ci-dessus. 
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INSTRUCTION ARRAYFILL 


Svntaxe : 


ARRAYFILL tablQ,n 


Abrew ; 


AR 


Examples : 


DIM A%(4,5,6),B(1QQ) 

C=7 

ARRAYFILL A%(),12 

ARRAYFILL BQ,C 

PRINT A%(0,0,0),A%(4,5,6)3(80) 


Fonction : 


Remplit un tableau avee la valeur n. 


Explication : 

’ tabl() * est un tableau numerique ou un tableau de booleens 
quelconque. Cette instruction affecie la valeur n & tous 1e$ 
elements de tablQ, 

V peut fctre un nombre ou une variable numerique, 

Ainsi, 1'instruct ion tiree de Texemple : 

ARRAYFILL A%(),12 


est identique au bloc d* instruct ions : 


FOR 1=0 TO 4 
FOR J=0 TO 5 
FOR K=0 TO 6 

A%(),J,K)=12 

NEXT K 


NEXT J 
NEXT I 
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BASIC GfA 


FONCTIO N 


ARRPTR 


Syntaxe: ARRPTR(var) 


Example; A$-"BAS1C* 

PRINT ARRPTR(A$) 

PRINT LP£EK(ARI*FTR(A$)) 

PRINT DPEEK< ARRPTR(A$ )+4 ) 

F met ion ; Determine Padresse du descripteur 

d’une chnine de earactercs ou d ? un 
tableau 


Implication : 

'yar -est one variable alphanumerique (chalne de caraeteres) ou un 
tableau. 

Les chaines de caracteres et les tableaux soni places en memoire 
suivant un schema precis S Paide d’un descripteur (voir annexe D : 
organisation des variables). 

ARRPTR determine Padresse du premier octet du descripteur qui en 
conipte 6. Dans fcxemple, on determine Padresse de debut et la 
longueur de AS. 


- 44 - 









Annexe A 



FONCTION ASC 

Syntaxe : 

ASC(x$) 

Example : 

A$= M GfA" 

PRINT ASC(AS) 

PRINT ASC(T) 

PRINT ASC("!ATTENTIOND 

Fwction : 

Retourne le code ASCII du premier 
caractere de la chaine x$. 

Explication ; 



Les caracteres disponibles sur P ATARI ST sont or donnas suivant 
Its code ASCII, 11 y a 256 caracteres reperables par lcur 
code compris entre 0 et 255 (les codes 0 a 31 represented des 
caracteres de controle). Une table de correspondance entre les 
caracteres et ieurs codes se trouve dans ('annexe C. 

’xF est unc chains de caracteres quelconque (string). La fonetion 
ASC retourne le code ASCII du premier caracterc d'tinc chalnc. 
Ainsi, ASC(’[ATTENTION!') est equivalent a ASC(T), et vaut 33. 
Si la cliafne x$ est une chaine vide, la valeur retournee est 0. 
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BASIC C/A 



FONCTION ATN 

Syntaxe : 

ATN(x) 

Exempte : 

INPUT pente 

RAD=ATN(pente/100) 

DEGRE=RAD*180/PT 

PRINT DEGRE 

Function : 

Retourne Parctangcntc de x. 

Kxplication : 



V cst une expression numerique qui rcpresente La valeur de la 
tangente <Tun certain angle (en radian) que Ton veut calculer. 

La function ATN retourne une valeur comprise entre -PI/2 et PI/2. 
L'angie obtcnu a pour unit^ le radian. Si Ton veut convertir cet 
angle en degres* il faut le multiplier par 1 SO/PI (PI rcpresente le 
perimetre d’un cercle de diametre 1. Sa valeur esl obtenu 
directemcnt grace a la fonction PI du BASIC GfA). 

L’exemple ci-dessus calcule Tangle en degres cor res pond ant a une 
pente (pourcentage d'une route) donnec. 


-46 - 






Annexe A 


FONCTION 


BASEFAGE 


SyttUixe: BASEFAGE 

Exempts: A-BASEPAGE 

FOR I=A TO A+255 
N=PEEK(I) 

IF N>=32 AMD N<128 THEN 
PRINT CHRS(N); 

ELSE 
PRINT V; 

ENDIF 
NEXT I 

Fmctim : Permet d’obtenir Fadresse de la page de base 

du BASIC GfA. 


Explication ; 

A chaque programme qui est charge en memoire sous GEMDOS, 
correspond une page de base dont la taille est de 256 octets (comme 
depuis le CP/M 80). Dans les 128 premiers octets, on trouve des 
informations internes qui sent neeessaires au systeme d’exploi¬ 
tation pour gerer le programme en memo ire - un POKE dans cette 
zone peut sou vent conduire au plantage de rappareil au moment du 
QUIT. La deuxieme mol tie dc la page de base contiem la ligne 
de commande qui est utilisee dans diverses applications ou avec 
r instruction EXEC. Avec DIR et FILES on utilise 44 octets de 
cette deuxieme demi-page. Le reste peut par exemple Ctre employe 
par des petits programmes machines pour I’in ter rogation du 
joystick. L’cxemple ci-dessus permet de connaitre le contenu 
ASCII de la Basepage. 
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BASIC C/A 


INSTRUCTION I/O BGET 


Syntaxe : BGET J#]i 3 adr j nbr 

Abrev. ; BG 


Exempte : OPEN ’T\# I /SCR.DAT" 

SEEK #1,8000 

BGET # 1 ,XB10S(3)+24000,8000 
CLOSE #1 

Fmctim : Lit des donnees sur un canal ct les place dans une 

zone-memo ire. 

Explication : 


7, ktdr* et 'nbr' sont des expressions entieres. ’i* est le 
numero de canal (voir OPEN). Cette instruction permet de lire 'nbr* 
octets et de les charger en memoire a partir de Padresse *adr\ A 
Tinverse de BLOAD, on peut iei remplir plusieurs zones memoires a 
partir d*uo seul fielder. Dans Pexemple, on lit un fichier 
queloonque (la sauvegarde d’une imagc-ecran par exemple) et on 
recharge une partie de son contenu dans la partie infdrieure de la 
mcmoire-ecran (voir aussi BPUT, BSAVE et BLOAD). 
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Annexe A 



FONCTION B1N$ 

Syntaxe ; 

BlN$(x) 

Exemples : 

A=-l 

B=&022 

PRINT BINS(A) 

PRINT B1N$(234) 

PRINT BIN$(B) 

Function : 

Convertit la valeur x en une chaine 
de caracteres represen tant Peer it u re 
binaire de x. 

Explication : 



V est un entier relatif (compris entre -2147483648 ct 
+2147483647) ecrit dans une representation quelconque (e’est-n-dtre 
la representation decimal© normale (sans p re fixe), la repre¬ 
sentation hexadecimale (prefix© & ou &H), la representation octale 
(prefix© &0) ou la representation binairc (prefix© &X)) on tine 
variable, 

BINS convertit x en une chaine de caracteres qui est la 
representation bimilre de x (c’est-ft-dlre que la variable B de 
notre example est convertie en la chaine "10010"). 

BINS, tout comme HEX$ et OCXS, utilise ia representation interne 
des nombres sur 32 bits : le resultat obtenu n'est done jamais 
precede d’un signe. Ce n’est pas le cas avec la representation 
decimale qui traite le signe des nombres entiers. 

(voir aussi HEXS(x), OCT$(x) et STR$(x)). 


-49 - 









BASIC GfA 


INSTRUCTION I/O BITBLT 


Syntaxe : BITBLT s%()4%() f p%() 

Abrev. : BIT 


Function : Instruction de copie de bloc. 

Explication : 

"s%( f contient Ie ’source memory form descriptor’ (description du 
bloc source), 

J" contient Ie ’destination memory form descriptor’ 
(description du bloc objet) ? 

"p*%>( F contient les coord onnees de deux rectangles de la meme 
Laille et Ie mode de copie (cf, PUT). 

s%(0*) ; adresse du bloc (paire). Exemple : xbios(S) 

s%(I; : largcur du bloc en pixels. Exemple : 640 

doit etre divisible par 16. 


s%(2) ; hauteur du bloc en pixels. Example : 400 

s%(3) : largeur du bloc en mots. Exemple : 4Q 

*%(4) : toujours 0. 


5) ; nombre de plans de bits. 

0..J) : rectangle source (xO* yO, xl, yl). 


p%{4.J) : rectangle objet (comme p%(0„.3). 
fM(8) : mode (comme avec PUT). 


Attention : cctte instruction peut vous poser dcs pr obi ernes. Dans 
la plupart dcs eas, on peut la reitiplaccr par PUT/GET, 
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Annexe A 



INSTRUCTION I/O BI.OAD 

BSAVE 

Syntaxe ; 

BLOAD *fii lename"[ ,ad resse] 

BSAVE "filename' 1 ,adresse T len 

Abrev. ; 

BL 

BS 

Examples : 

BSAVE "ecran\XBIOS(2),32000 

CLS 

BLOAD "ecran\XBIOS(2) 

Fonaion : 

Charge resp. sauvegarde une zone de la 
memoire principale & partir de resp. sur !a 
disquette. 

Explication : 



’filename est un nom de fichier, L'utilisation des specifications 
decrites sous DIR el de forganisation hierarehique des fichiers 
(\) est autorisee. 

'adresse est une expression nemerique dont la valour indiquc 
fad rosso do debut de la zone-memo! re. 

Si cette adresse manque lots du ULGAD, e'est I'adresse choisie lors 
du BSAVE qui est utilisee. 

Veil* est une expression num^rique qui determine la longueur de la 
zone--me moire a sauvegardcr. Dans Pexcmple, on sauvegarde te 
contenu de la memoire-ecran (adresse dc debut : XRIOS{2)) sur 
disquette, puis on la recharge apres avoir efface l’ecran. 
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BASIC C/A 


INSTRUCTION 


BMOVE 


Sytuaxe : 
Abrev, ; 
Example : 
Fonctim ; 


BMOVE $rc,dst,nbr 
BM 

BMOVE XBIOS(3),XBlOS(3)+231998 
Transfer! de blocs-memoires. 


Explication : 

‘scr’, dst' et ‘nbr* sont des expressions entieres. 


'src* (SouRCc) est Tadresse & partir de laquelle se trouvent le$ 

donnees a transferer. 

* 

‘dst’ (DeSTination) est Tadresse a partir de laquelle les ’nbr’ 
(NomBRe) octets doivent ctre trnnsfercs. Ce transfer! de bloc est 
tres rapide* rnnis est sensiblement ralenti, si on utilise des 
nombres impairs. 

BMOVE est une routine de transfert "intclligentc* qui peut 
s’utiliser pour des zoncs-memoires se chcvauchant. L’exemple ci- 
dessus permet de deealer la memcire-ecrnn de deux octets. 
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Annexe A 



INSTRUCTION GRAPH1QUE BOX 

Syntax? : 

BOX xO,yQ,xl 1 yl 

Abrev . ; 

B 

Examples ; 

BOX 100,100,400,300 

BOX 500,300,700,100 

Sanction : 

Trace un rectangle dont les deux sommets 
sur la diagonal© out pour coordonnees 
(xQ,y0) et (xl ,yl). 

Explication : 



L’origins des coordonnees est le coin supcricur gauche de l’eeian, 
Les deux sommcis ne doivent pas obligatoiremeril faire partie de 
rccran (0-639,0-399 pour la haute resolution). Dans ce cas, il est 
evident que seule one partie du rectangle sera represente (voir 
second exemplc). 

(voir aussi DEFLINE). 
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BASIC CfA 



INSTRUCTION 1/0 BPUT 

Syntaxe : 

BPUT ^Ji.adrjnbr 

Abrev. : 

BP 

Example : 

OPEN *0”,# 1 ,"SCR.DAT" 

BPUT #1 ,XB10S(3)+16000,16000 

BPUT #1 ,XBIOS(3)»I6000 

CLOSE #1 

Function : 

Envoie une zone memoire sur un canal de donnees. 

Explication : 



i'.'njr' a 'nbr' sont des expressions enticres. 

* 

’i' est le numero d*un canal de donnees (voir OPEN). L’instruction 
I3PUT lit les ’nbr’ octets memorises $ partir de Padresse 'adr\ et 
les envois stir le canal *i\ A Pinvcrsc de BSAVE, on peut ici 
ecrire plusieurs zones memoires sur le meme fichier. Dans Pexcmplc 
ci-dessus, on sauvegardc la memoirc-ecrait snr fichier, en 
intervertissant les deux demi-ecrans. 

(voir aussi BGET, BSAVE, BLOAD). 
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Annexe A 


FONCTION 


Syntax? : Gvar(li$reparairO 

Exempt? : Q%-VARPTR(QS) 

A-C:Q%( 17 ,L:0*W:-1) 

Function ; Appel d’un sous-programme en langage 

machine (langage C compile) avee 
passage de parametres comme en C. 

Explication : 

‘var* est une variable numerique (mais pas une variable booleenne) 
qui contient Padressc de debut de la routine C. 

listepanmi est - comme en C - une liste de parametres qui sent 
soit des mots (16 bits^W) soil des mots longs (32 bits=L). La liste 
peut aussi 6tre vide. Pour transmettre dcs mots longs, il faut 
uliliser le prefix© 'L:\ Pour les mots, on peut employer Ic 
prefixe ’W:* qui est facultatif. Au retour de la routine C, le 
BASIC GfA (comme le C) collect© le mot long contenu dans le 
registre DO. i/exemple sert uniquement a met ire en evidence le 
format de Pinstruction. 

Dans Pexemple, on appellc unc routine qui sera it contenue dans la 
chaine de caracteres Q$, 

(voir aussi BIOS, XBIOS et GEMDOS). 
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BASIC G/A 



INSTRUCTION CALI. 

Syntax? : 

CALL var 

CALL var(listeparam) 

Abrev . 

CA 

Exempt a ; 

CALL Test(3,i%,aS) 

Sanction : 

Appel d’un programme-machine. 

Explication : 



’ var ' est une variable numerique (mais non booleenne) qui conlient 
fadresse de debut du programme-machine. 

Imeparam' est une liste de para metres qui sent transmis ix la 
routine machine. Le programme-machine obtiendra sur la pile 1e 
nombre de parametres (contenu dans un mot de 16 bits) et Fadrcsse 
d’un tableau (contenu dans un mot long de 32 bits) qui conlient 
chaque paramStre sur quatre octets. Les nombres sont transmis dans 
des mots longs ; en ce qui coneerne les chalnes de caracteres, on 
transmet leur adresse de debut. L’exemple est uniquement la pour 
mettre en evidence le format de F instruct ion. 
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Annexe A 



INSTRUCTION I/O CHAIN 

Syntaxe : 

CHAIN "nomfich" 

Abiev. : 

CH 

Exempt? : 

SAVE "PROGRAM' 

CHAIN "PRO*" 

Function : 

Charge un programme en memo ire 
principale et lance son execution. 

Implication : 



'uamfich * dsI le nom du ficlhier & chaincr. 

Pour ce nom de fichier, loutes les specifications som autorisees 
(voir DIR). Si on ne donne pas d’extension au nom du programme, le 
Suffixe .BAS cslr rajoute par defaut par le BASIC GfA. Les 
guillemets nutour de ’nomfich* sent automatiQuemcnt mis en place, 
s’ils n’ont pas etc entres au clavier. 
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BASIC G/A 



INSTRUCTION I/O CHOIR 

Syntax? : 

Cl IDIR "nomrepert" 

Ah rex. 

CUD 

Excmple : 

MKDIR "\REPP 

MKDIR W \REPI\REP2" 

CHD1R 'V 

FILES 

CllDIR "\REPr 1 

FILES 

Fauction : 

Permet de changer de repertoire (directory). 

Explication ; 



'nomreperf est le nom du repertoire sous Icquel on vcut se placer. 

La syntax© de ee nom depend de la place hiCrarchique occupee par 
1© repertoire : CHD1R "\" ramene au repertoire principal (racine). 

Lore d*un changement vers n’importe quel autre repertoire, il est 
necessaire d’introduire le chemin. Celui-ci commence toujours par 
'V q Li and on pari du repertoire principal. Ainsi, par exemple, 
CllDIR "\REP l \REP2 n permet de se placer sous le repertoire REP2 
lui-mfime contenu dans I© repertoire REP1 de la directory 
pri net pale. Un changement de lecteur n’est pas possible avec ccttc 
instruction, mai$ est realisable avec 1’instruct ion CH DRIVE. 


- 58 








Annexe A 


INSTRUCTION 


CIIDRIVE 


Syntax? ; CHDR1VE n 

Abrev. : CFIDR 


Exempt? : CHDRIVE 1 

FILES 

CHDRIVE 2 
FILES 


Function : Determine runite de disquettes prise par defaut. 

Explication : 


V est une expression numerique qui indique le num6ro (1-15) de 
l’unite'de disquettes. 


CHDRIVE determine quel est runite de disquettes a utiliser 
lorsqu'aucune specification conccrnant le leetcur (par ex. : A:) 
n’est prcciscc dans une instruction ou une function qui effectue 
de$ acces-disquettes. 


L'example affiche Tune apres I’autre les directories des 

disquettes de Tunite A et C. 


ATTENTION ; CIIDRIVE 0 entraine le plan tagc tlu system e. 
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BASIC G/A 


FONCTION 


CIIR$ 


Syntcxc: CHRS(x) 

Examples : PRINT CI1R$<65) 

PRINT CIIRSC577) 

PRINT CHRSH91) 

FmcUon ; Retour ne le caractere donl le code 

ASCII est x. 

Implication ; 

Les caracteres disponibles sur PATARI ST sent numcrotes suivant le 
code ASCII. II y a 256 caracteres donl les codes soul compris entre 
0 ct 255 (les codes 0 a 31 represen tent des caracteres de 
contrdle), Une table de correspondence entre les differenls 
caracteres et leurs codes se trouve en annexe C. 

V est on entier relatif. V est tout d’abord convert! en un 
entier compris entre 0 et 255 grace ft la fortnule x AND 255. 

On obtient une chain© de caracteres de longueur 1 avec le caractere 
correspondent au code ASCII. Ainsi les trois cxcmplcs ci-dcssus 
renvoient to us la chalne de caracteres "A". 
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Annexe A 


INSTRUCTION GRAPIIIQUE CIRCLE 


Syntaxe : CIRCLE x t y,r[,phiO,phil]| 

Ahrcv. ; C 


Exempted : CIRCLE 320,200,200,900,2700 

CIRCLE 700,500,400 

b'onctim : Trace un [arc dej cercle de centre 

(x,y) et de rayon r. 

Explication : 


x et y sont les coordonnfees du centre du cercle, Porigine des axes 
ctant le coin superieur gauche de Pecran. Bien £iue Pecran ne 
comporte que 640 x 400 points (dans le cas de la haute resolution), 
il est possible de donner a ces coordonnees des valeurs plus 
grandes ou plus petites. Le centre du cercle se trouve alors 
naturellement en dehors de Pecran. 


Si on veut uniquement representer un arc de cercle, on introduit en 
plus Ik valeurs de Tangle initial (phiO) et de Tangle final 
(phil). Cette angle est donne en 1/10 de degre* Un angle de 0 degre 
(0) est dirige vers la droite, un angle de 90 degres (900) vers le 
haul, un angle de 180 degres (1800) vers la gauche et un angle de 
270 degres (2700) vers 1c has. 

(voir aussi DEFL1NE). 
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BASIC G/A 



INSTRUCTION I/O CLEAR 

Syntax? : 

CLEAR 

Abrev. ; 

CLE 

Exemple ; 

A=l 7 

B3>=" BASIC" 

CLEAR 

PRINT A,B$ 

Bone lion : 

Efface toutes les variables et tous les tableaux. 

Explication : 



Toutcs les variables num^riques sont remises a 0 et les variables 
clialrfes de caracteres deviennent des chaines vides. Le programme 
en lui-niftme n'est pas modi fie. 

L’instruction CLEAR ne petit £tre employee a Finterieur de 
procedures ou de boucles FOR-NEXT. 
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Annexe A 



INSTRUCTION CLEARW 

Syntaxe : 

CLEARW n 

Abrev . ; 

CLE W 

Exempts : 

CLEARW 2 

Fottcl ion : 

Efface le contain de la fenetre numcro n. 

Explication : 



Vi' est ime expression numerique dont la valeur represent!; le 
numcro de la fenetre. 

#■ 
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BASIC GfA 


INSTRUCTION I/O CLOSE 


Syniaxe : CLOSE [[#]n] 

Abrev. ; CL 

Exemple ; OPEN "O' ,# i / PRO" 

PRINT #1 /’GfA-BASIC 
CLOSE #t 
OPEN T,#l/TRO M 
INPUT # 1, A$ 

CLOSE 
PRINT A$ 


Fauction : Ferine un canal de donnees ou un canal 116 a 

un fichier sur disquette. 

#■ 

Explication : 


V est un entier compris entre 0 et 99 et indique le numero du 
fichier qui a &e ouvert par OPEN et qui doit maintcnant fitre 
ferine, Si Pargument facultatif V est absent, tous les canaux qui 
etaienl encore ou verts sent refermes. 


A vec 1'instruct ion OPEN, on attribue un numero & un fichier. Ce 
numero permet d’atteindre le fichier pour les instructions de 
lecture et/ou d’ecriture, La correspondance entre le fichier et son 
numero cessc avec I’instruct!on CLOSE, 
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Annexe A 



INSTRUCTION CLOSEW 

Syntaxe : 

CLOSEW n 

Abrev. ; 

CL W 

Exempt? : 

CLOSEW 2 

Fmctkm : 

Ferme la fcn6tre numero n. 


replication ; 


V est unc 

expression numeiique doni la valour rcpresenle le 


num£ro d’une fcnelre, CLOSEW 0 per met dc revenir a TafficKagc 
normal sur I'ecran. Cette instruction est indispensable apres la 
Hn de l 4 utilisation d’une fenetre. 

* 
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BASIC C/A 


INSTRUCTION CLR 


Syntaxe : CLR var[,var„.] 


Exemple : 

CLR A t B t C% T D!,ES 

Fonciion : 

Efface um Iiste de variables. 

Explication : 



'vor' represente un nom de variable (pas de tableau). L’exemple 
produit te meme effet que : 











Annexe A 



INSTRUCTION CLS 

Syntaxe : 

CLS [#i] 

Abrev. : 

CLS 

Exempte : 

FOR 1=1 TO 1999 

PRINT "A - ; 

NEXT I 

PRINT AT(32J3); H Appuyez sur une louche ..." 
A=INP(2) 

CLS 

Faction : 

Efface I’ecran. 

Explication : 

# 



L'instruction CLS est idcntiquc a PRINT CHR${27);"E"; et en- 
name Peffaccment de I’ecran. Le curseur est replace a sa 
position HOME (en haul et a gauche de Pecran). CLS pcut aussi 
etre utilise pour des canaux de donnees (qui out par exemple ete 
Ouvert par OPEN "",#1 ,"VID:"), la syntaxe est alors CLS #i 
(ou i indique le nuraero do canal), Dans ce cas, l 1 instruct!on 
est identique a PRINT #l,CHR$(27); ,l £- ; . 
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BASIC G/A 



INSTRUCTION GRAPHIQUE COLOR 

Syntaxe : 

COLOR c 

Abrcv . ; 

CO 

Example : 

PCIRCLE 100,100,100 

COLOR 0 

LINE 0,0,200,200 

Function : 

Mel en place la couleur. 

Explication : 



Cclte instruction per met de ehoisir la couleur pour les 
instructions BOX, CIRCLE, DRAW, ELLIPSE, LINE, PLOT 
el KBOX. 

’c indique le numero de la couleur vouluc (en basso resolution, la 
valcur de la couleur varie entre 0 el 15, en moyenne resolution, 
enlrc 0 et 3 el en haute resolution, entre 0 et 1), 
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Annexe A 


INSTRUCTION 


CONT 


Syntaxc : CONT 

Ahrev. : CON 

Function ; Relancc Texecution a partir du point d’arret. 


Explication : 

Cette instruction n’a de sens qu’en mode direct. Bile permet la 
reprise dc ('execution du programme a pres une interruption de 
cclle-ci par ^instruction STOP ou Tempbi simultane des touches 
<CONTROL>, <SHIFT> et <ALTERNAT£>. CONT n’esi plus 
possible a pres une modification du programme, apres B instruction 
CLEAR ou rintroduction de nouvelles variables. 
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BASIC G/A 


FONCTION 


COS 


Syntaxe: COS(x) 

Examples : I) INPUT RAD 

PRINT COS(RAD) 

INPUT DEG 

PRINT COS(DEG*PI/l80) 

2) PLOT 320,200 
FOR 1=1 TO 5400 
X~I/36*COS(I*PI/180) 
Y«l/36*SIN(I*PI/180) 
DRAW TO 320+X,200+Y 
NEXT I 


Fmctjon : Retourne le cosinus de x. 

Explication : 


V est une expression numeriquc qui represents Panglc (en 
radians) done on veut calculer le cosinus. 


Si Pen veut introduire Panglc en degre, il faut remplacer x par 
deg*PI/I80, ou PI est une fonction du BASIC GfA qui renvoie la 
valcur de pi (c’esl-a-dire le perimetre d*un ccrcle dc diametre 1). 

Le premier exemple calcule tout cTabord le cosinus d’un angle donne 
en radians, puis celui d'un angle donne en degres. Le deuxieme 
exemple dessine une spirals degre par degre. 
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Annexe A 



FONCTION CRSCOL 

CRSLIN 

5ynt axe : 

CRSCOL 

CRSLIN 

Exempk : 

Ox-CRSCOL 

Oy=CRSLIN 

PRINT AT(9,9); ,I TEST M 

PRINT AT(Ox,Oy); 

Fane lion ; 

Permet d’obtenir la position du curseur (colonne el 

ligne). 

Explication : 



Las fonctions CRSLIN resp. CRSCOL retournent la ligne reap, la 
colonne ou se trouve le curseur. Dans Pexemple, on sauve la 
position du curseur, on affiche ensuite un message cl enfin, on 
replace le curseur & sa position initiate. 

(voir aussi PRINT AT). 
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BASIC C/A 


FONCTIONS CVI 

CVL 

CVS 

CVF 

CVI> 


Synlaxe: CVI(xS) 

CVL(x$) 

CVS(x$) 

CVF(xS) 

CVD(xS) 


Example : A=0 J 111 

A$-MKFS(A) 

PRINT CVF(AS) 

Ftmcixm : Convert it one chaine de caraclere 

en une valeur numcrique. 


Kxplication : 


\x $ 1 esl une chaine dc caracteres queleonque. 

Les differedtes fonctions convert issent xS en une valeur numerique, 

a savoir :: 

* CVI convertit une chaine de 2 octets en tin entier de 16 bits. 

* CVL convertit une chaine de 4 octets en un entier de 32 bits. 

* CVS convertit une chaine de 4 octets realisant lc format 

compatiblc-BASIC Atari en une valeur numerique. 

* CVF convertit une chaine de 6 octets realisant le format 

spccifiquc au BASIC GfA en une valeur numcrique. 

* CVD convertit une chaine de 8 octets realisant le format 

compaiibte-M BASIC en une valeur numerique. Si la chaine de 
caracteres est plus longue que lc format perm is, scul est pvis 
en compte la sous-chalne de longueur correspondante. Si la 
chaine est plus courie, la valeur numcrique obtenu est 0. 

(fets inverses : MKIS, MKL$, MKS$, MfCFS, MKDS) 
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INSTRUCTION 


DATA 


Syntaxe : 


Ahrev. ; 


Example : 


Fmctiw r .* 


Explication : 


DATA [const[»const].„] 

D 

READ A,B$,CS,D,E! 

PRINT A;BS;C$;D;E! 

DATA 234 > "G,f,A‘\ BASIC,&HFF,56 

Per met de Stocker des valcurs qui 
pourront Stre lues par READ. 


const' est une constante mimerique, booleenne on alphammierique. 
Les constantes sent separees entre e-lles par des virgules. Les 
constantes numeriques peuvenl etre rep resen tees sous iTimporte quel 
format (decimal, hexadecimal, octal ou binaire). Les constantes 
alphanumeriques (chaines de caractcres) n’ont pas besoin d'Strc 
placees entre guillemets ; ceux-ci sont cependant necessaires si la 
chaine comporte une ou plusieurs virgules. Si on iCutilise pas les 
guillemets, la chaine de caractercs va de virgule on virgulc, cela 
signific que lcs blancs devant ou dcrricre une virgule sont pris en 
compte dans la chaine de caracteres (cf exemple). Si I'instruction 
DATA n’est suivie d'aucune valour, cela est interprets com me une 
chaine de caracteres vide. Si on lit, avec l 1 instruction READ, la 
valcur 0 pour une variable boolecnnc, on affectc a ccllc-ci 0. Pour 
loutes lcs autres valeurs, on affectc a la variable booleenne -1. 


(voir aussi READ et RESTORE). 
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FONCTION DATES 

Sy/Ucxe ; 

DATES 

Exemple : 

DEFTEXT IJ6,0,32 

PR INI DATES 

TEXT 240,180,DATE$ 

I'onclim : 

Retourne la date. 

Explication : 



La fond ion retourne une chaine de caraetere donnant la date 
memorises dans le tableau de contrOle, sous le format suivant: 

, jj.mm.aaaa 
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INSTRUCTION ARITHMETIQUE DEC 


Syntaxe ; DEC var 

Ah rev, ; DEC 

Example: T-TIMER 


#■ 

FOR I%=1 TO 10000 

DEC A% 

NEXT 1% 

PRINT (TIMER -T)/200 

A%=0 

T=TIMER 

FOR I%=1 TO 10000 

A%=sA%-l 

NEXT 1 % 

PRINT (TIMER=T)/200 

Function : 

Diminue var de 1. 

Explication : 



'var doit £tre une variable numcrique ou un element de tableau 
nunierique. DEC var est identique A var=var-l, L’avantage de 
P instruction DEC reside dans son format concis (economic de 
place memoire) et surtout dans sa vitesse d'execution (testez 
Pexemple t). Ainsi, V utilisation de f instruct ion DEC permet 
d’augmenter de fagon sensible la vitesse d'execution qui par 
ailleurs est dej& tres elevee (dans Pexemple, la vitesse cst 
environ multiplies par 3,5). 
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INSTRUCTION 


DEFNUM 


Syntax# : DEFNUM n 

Ahrew : DEFNf 


Exempt? ; DEFNUM 8 

FOR l—l TO I STEP 0.1 
PRINT I 
NEXT I 

Function ; Arrondit tous les nombres H n ch Iff res, avant ieur 

affichage. 

Explication ; 

V mt un oombre compris entre 3 et 11 qui indique la precision a 
laqucllc les nombres vonl etre affiches, Cette instruction est 
utile pcur afficher les valeurs exactes de nombres qui soiit en 
lealitd lcgeremcnt imprecis a cause des erreurs cfarrondi. Dans 
Pexemplc, on affiehe les multiples enacts de 0.1 a recrart, alors 
que les operations avec la valour 0.1 conduisent en realite bien 
sou vent a unc imprecision. 


Par ailleurs, LI cst conseillc dans les programmes financiers de 
calculer en centimes, car les nombres entiers n’entrainent 
pratiquemenl jamais des erreurs d’arrondi. De plus, rudlisation 
des variables Integer (Var%) per met d*augmenter sensiblement la 
vitesse d*exocution de I’interpreteur. 


(Voir aussi PRINT USING). 
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INSTRUCTION CRAPHIQUE DEFFILL 


Syniaxe. : DUFF ILL [c],[a),[bj ou 

DEFFILL [e],A$ 

Abrev. .* DEFF 

Exemple : BOX 100.100,400,300 

DEFFILL 1,2,9 
FILL 50,200 
DEFFILL „IQ 
FILL 320,200 

Function ; DtTinit la couleur et le motif de 

remplissage, ou per met de redefinir 
soi-mfime un motif. 


Explication i 

Les instructions FILL, PBOX . PC/RCLE, PELLIPSE et PRBOX 
permettent respect ivement de remplir des formes ou de dessiner des 
figures pleincs avee un motif de remplissage. 

L’i instruction DEFFILL permet de definir la couleur et le motif. 

'c determine la couleur et le motif. 

Les virgules en fin destruction, dans le cas ou a et (ou) b sont 
absents, peuvent dispa rail re. 

'a indique le mode de remplissage (0=vide, 1-plein, 2=pomtille, 
3=hachur£, 4=redcfini soi-mOmc). 

f b' permet de choisir entre 24 motifs differents parmi les 
pointilles et entre 12 motifs parmi les hachures. 

Vous trouverez une table des motifs deux pages plus loin. ==> 
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INSTRUCTION GRARHIQUE DEFFILL 

suite 


La deuxieme variant© de finstruction DEFFILL pcrmet de rcdefinir 
soi-menie le motif de remplissage. Le motif est defini par une 
mat rice de 16x16 points. La chaine de definition est ia 
concatenation (avec +) de 16 series de bits transformees en chaines 
de caracteres par MKI$, une scrie dc bits correspondant & une 
ligne. Ainsi, la chaine de earaeteres definie par ; 


FOR 1=1 TO 16 
AS=AS+MKI$(65535) 
NEXT I 


#■ 

correspond rail au motif de remplissage plain* car 65535 donne en 
binaire: 


nimiiiiiimi . 
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INSTRUCTION GRAPHIQUE DEI-FILL 

suite 


TABLE DES MOTIFS 
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BASIC C/A 


INSTRUCTION 


DEFFN 


Syntax? ; 


Abrev . .* 


Exempts : 


DEFFN noml(listevar)J=expres 
Appel par : 

FN nomftlistcexpres}] 

DEFFN 

(@ peul remplacer FN) 

DO 

INPUT X 

PRINT X,FX Trois, FN MULT(IO) 
LOOP 

DEFFN MULT{ Y )= V * FN Trois 
DEFFN Trois = 3*X 


Emotion : Dofinit une fonction speciftque de 

rulilisateur. 


ex plication : 


nom' est construit comme un nom de variable ct represente le nom 
de la fonction. 


Ustevar' est une Iiste de variable (egalement des ctinines de 
caracteres) separees par dcs virgules. Cette liste est facultative, 

'expres’ est une expression numerique ou alphanumerique quelconquc. 
{’nom 1 doit etre du meme type que 1’expression), 

L’instruction DEFFN permet a Putilisateur de definir soi-mfime une 
lonction. Cette fonction pern fitre appclce par FN suivi du nom de 
la function correspondsnt et eventuellement par unc liste de 
parametres Tisteexpres* de meme type que les variables 
correspondantes de Tistevar*. Lors de rappel de la fonction par 
FN, la presence de 'listeexpres’ est obligatoire des lors que 
Mislevar* existe. ==> 
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INSTRUCTION 


DEFFN 

.suite 


Lors de rappel de la fonction par FN ou par toutes lcs 

variables de ’expies’ prenncnt lcs valciirs des expressions de 
listeexpres* afm de calctiler et de mourner la valeur de la 
fonction. 

II est possible, a 1*interieur d’une definition de fonction, de 

faire appd A une autre fonction (voir exemple). On peut ainsi 
definir des fonctions dont la laillc depasse la longueur tfune 
ligne, 

II n’est pas neccssaire de faire figurer les instructions DEFFN en 
debut de programme, car rinterpreteur execute tous les DEFFN au 
debut de rexecution du programme. De meme, 1’ordre des 
instructions DEFFN n'a pas d’importance, meme si, dans une 
definition dc fonction, on appclle une fonction definie plus loin 
(voir exemple). 
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INSTRUCTION GRAPIIIQUE DEFLINE 

Syntaxe : 

DEFLINE WIIMdUn 

(les virgules finales peuvent disparaltre). 

Abrcv. : 

DE 

Exemple : 

DEFLINE 1,10,2,1 

LINE 140,25,350,25 

PRINT AT(! s 2);"a=2, c=l, b=i0: 1 * 

FOR 1=1 TO 6 

PRINT 

DEFLINE 1,1,0,0 

LINE 50,25+1* 16,350,25+1* 16 

NEXT I 

Fonetwn ; 

Definit les caracteristiques des lignes. 

Explication ; 



Cette instruction permet de definir les types de lignes qui scront 
Utilises par BOX, CIRCLE, DRAW, ELLIPSE, LINE et RBOX. 

V indique la largeur du trait cn nombre de points graphiques. 

V/' cl 'f indiqucnt le type d’extremite a utiliser respect ivement 
au debut et a la fin de la ligne (0^ normal, 1 = flcchc, 2=arromU). 


Enfin, 7' determine le type de trait Le programme de notre 
exemple donne le results t suivani: 



















Annexe A 


INSTRUCTION 


DEFUST 


Sytifaxe : 
Ahrev. ; 
Example : 
Emotion : 


DEFUST x 
DEFLIS 
DEFUST 0 

Definit lc format des listings. 


Explication : 


V est une expression numerique quelconquc, 

Cette instruction permet de dcfinir le format des listings de 
programmes. 


Pour x-0 : 

Lcs noms des instructions et des fonciions sent enttfcrement ecrits 
en majuscules, ies variables par contre sont representecs cn 
minuscules. 

Ex : PRINT a,ba1,CIJR$(65) 


Pair x<>0 ; 

Les noms des instructions, des fonctions et des variables sent 
ecrits en minuscules sauf la premiere leltre qui est une majuscule. 

Ex : Print A,Rat T Clir$(65) 
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INSTRUCTION GKAPHIQUE DEFMARK 


Syntax* : DEFMARK [c]{5 j,[t] 

Abrev, : DEFM 


Exemple : DIM X(5),Y(5) 

DO 

FOR 1=0 TO 5 
X(I)-RANDOM(640) 

Y (I)=R AN DOM(400) 

NEXT I 

DEFMARK I ,RaNDOM(7).0 
POLYMARK 6,X{),Y{) 

LOOP 


Emotion : Definit la couleur, le type et la taille 

des sommcts qui seront places par 

^instruction POLYMARK. 

Explication : 

’c' est le ntimero de la couleur choisie (0 ou I cn haute 
resolution). 

V determine le symbols qui sera employee. On a le choix entre les 
6 symboles : 

1 o Point 

2 = Plus 

3 - Etoilc 

4 = Rectangle 

5 = Croix 

6 = Losangc 


Tome autre valeur de *S* donne une eloile. 

Y definit la taille du symbols. Les valeurs 0,20,40,60,80,100 
son! possibles. 
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INSTRUCTION GRAPIIIQUE DEFMOUSE 

Syntax? : 

DEFMOUSE n ou 

DEFMOUSE AS 

Abrev. : 

DEFMO 

Exempt# : 

FOR 1=0 TO 7 

DEFMOUSE 1 

PAUSE 100 

NEXT 1 

* 

XS=MKX$(l) 

Y$-MKIS(1) 

MFS=MKI$(0) 

CF$=MK1S(!) 

MS=MKI$(65535) 

FOR I=i TO 14 

M$=M$+MKI$(32769) 

NEXT I 

M$=N€+MKI$(65533) 

C$=MKI$(0) 

FOR 1-1 TO 14 

CS =C$ +MK IS( 36766) 

NEXT I 

C$=C$+MKIS(0) 

AS-XS+YS+MK T$( 1 )+MF$+CFS+MS+C$ 

PBOX 10,10,200,200 

DEFMOUSE A$ 

DO 

LOOP 

Fond ion ; 

Perrnet dc ehoisir ou de redefinir une forme de 
souris. 
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Explication : 

L'instruction DEFMOUSE n permet de choisir 1’une des 8 formes dc 
Souris predefinies. ’rf est une expression numerique dont la valeur 
est comprise entre 0 et 7 (pour des valours super!cures, n mod 8 
est pris cn comple). =-> 


#■ 
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INSTRUCTION GRAPHIQUE DEFMOUSE 

suite 


Les formes suivantes sont disponibles : 


n-0 Fleche 

n-l X allonge (arrondi) 

n=2 Abcillc 

n=3 Main avec doigt points 

n=4 Main plate 

n-5 Reticule fin 

n-6 Reticule epais 

n~7 Reticule avec contour 


l/instruction DEFMOUSE AS permet de redefinir soi-meme une 
forme de souris. Pour le dessin de la souris, on dispose dc 
16xi6 -points. Sur cette matrice, il est necessaire de definir 
deux figures : le masque et le curseur de la souris lui-mtoe. 
Cela est necessaire pour que le curseur reste visible, lorsqu'il 
est dcplace sur une surface de m£me couleur. L*un des 256 points 
represente le point d’action, qui est pris en compte par les 
differentes fonctions de la souris (comme MOUSE par exemple). 

La cliaine de definition A$ est compos&j de la manure suivante : 

AS = MKIS(coord. x du point d’action) 

+ MKlS(coord. y du point d’action) 

+ MECIS(l) 

+ MKI$(couIeur du masque) hab. 0 
+ MKI$(couicur du curseur) hab, 1 
+ MS (motif binaire du masque) 

+ C$ (motif binaire du curseur) 
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Los deux motifs binaires sonl composes de 16 mots (MKIS) qui 
tndique chacun le motif binaire d’une Ugne. Ainsi, MK1$(65535) 
represents unc lignc pleine* car 65535 don no cn binaire : 

n 1111 m i m n i . 

Pour mieux comprendre cette instruction, il cst conseille de mettre 
en pratique Pcxcmple. 


# 
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INSTRUCTION GRAFHIQUE DEFTEXT 


Symaxe : DEFTEXT [c],[t]Ja],[h] 

(les virgules finales peuvent disparatlre), 

Abrev. ; DEFT 


Example : DEFTEXT 1,16,032 

TEXT 10,50/contour" 

DEFTEXT ,24,900, 

TEXT 500,300/conlour/soulIgne'' 

Fonctim : Deiinit la couleur, le type, rorientation 

et la laille des onracleres affidles par 
r instruction TEXT. 


Explication : 


f c' est le numero de la oouleur choisie (0 ou I en haute 
resolution). 

Y indique lc type de caractcrc. Void la significalion de 
certaines des valeurs que peut prendre I : O^nomaal, l=gras, 
2=clair, 4=oblique, 8=souligne, l6=contour. Si Ton souhaite avoir 
une ecrituie contour et soulignee, on additionne les types 
fontamentaux ei-dessus pour obtenir 8+16 -> t—24. 


'a' donne I’anglc d’orientation de Tecriture cn 1/10 de degre. IJ 
n’y a que 4 valeurs possibles : 0 degre (0), 90 degres (900), 180 
degres (1800) et 270 degres (2700), 

7i' indique la hauteur des caractcres cn nombre de points : 
4=secriture petite (leones), 6=eciiturc en eouleur (8*8), 
13-ecriture normale (noir et blanc), 32=ecriture enorme. 
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FONCTION DFREE 

Syntaxc : 

DFREE(n) 

Examples : 

PRINT DFREE(O) 

PRINT DFREE(l) 

Fmction : 

Indique la place memoir© disponible sur une 
disquette. 

Explication : 



*n est une expression numerique qui correspond au numero de 
i 1 unite de disquettes. 

L’instruction retourne la place mCmoire disponible sur la disquette 

de Punite n. 

Si n®=0* il s’agit de l'unite de disquette utilisee actuellement. 
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INSTRUCTION DIM 


Syntaxe : DIM var(indiees)[,var( indices),..,] 

Abrev. ; D1 


Examples : DlM A(1000),B(4,5,3) 

DIM N$(20,5) 

Fone t ion : Determine les dimensions d'un tableau. 

Explication ; 

'vaF est une variable numerique, alphanumerique ou booleenne 
quelconque. 


'’indices* est une lists d’express ions numerique separees par des 
virgules et indiquant les dimensions du tableau. 

On peut par exemple se representer un tableau de dimension 3 comme 
un immeuble de bureaux, pour lequel le premier indice serait 
i'etage, lc deuxl&me indice le numero de chambre d’un etage 
determine et le troisieme indice le numero de table d’une chambre 
determine. 


Transpose en BASIC, cela signifie qu’on peut acceder a differentes 
places de la memoire (des tables dans noire exemple) grace k la 
connaissance d’un certain nombre d 1 indices. 

L’instruction DIM determine la borne superieure de V .indice (la 
valour la plus petite que peut prendre findice est 0) el reserve 
une zone memoire de taille correspondante. 

Pour les tableaux a plusieurs dimensions, le nombre maximal 
d’elements est de 65535. Quant aux tableaux k une dimension, ils ne 
sont 1 unites que par la taille de la memoire principale. 
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FONCTION DIM? 

Syntax* : 

DIM?(tableau()) 

Examples : 

DIM A$(3,4,5) 

DIM N%( 12,12) 

PRINT DIM?(A$()) 

PRINT DIM?(N%()) 

Fonction : 

Rctourne le nombre d’elements d’un tableau. 

Explication : 



'tableau* est unc variable tableau quclconquc. 

La fonction donne le nombre d’elemcnts d’un tableau qui a 
preccdcmment ete dcfini avec i’instruction DIM Notez que les 
indices commcncent a 0 : ainsi, Lexemple ci-dess us affiehe les 
valeurs 120 et 169. 

Si on demande la dimension d’un tableau non dcfini, on dbtient en 
retour la valeur 0. 
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INSTRUCTION I/O DIR 


Syntaxe : DIR[*specfich'lTO ,, fich’ , J] 

Abrev. ; DIR 


Examples : DIR ’A:**" TO "ArTABMAT" 

DIR “A:*.** 1 TO *'LST: n 

Fauction : Liste les fichiers d’une disquette. 

Explication : 

'specfidi est le nom d*un fichier. Tootes les specifications 
suivantes sent per raises : 


L'units' de disquettes est specifiec par une lettre suivie d'un 
double point, place© devant le nom du fichier {par ex. A: pour 
I’unite 1). 


Si le nom du fichier de ’spocfich’ coraportc urr (ou plusicurs) 
points d’interrogation, on prend en compte tous les ficliiers donl 
les noms coincident, le point d’intcr rogation rempla^ant une lettre 
queloonque. L T instruction DIR *ART??.DOC\ par exemple, recherche 
tous les fichiers ayant Pcxiension .DOC et un nom de 5 Hires 
eommengant par les 3 lettres ART . Les fichiers AKTNR.DOC el 
ARTEN.DOC son! done tous deux pris en compte. 

Le caraciere *** signific que toute une partie du nom peut etre 
quel con que. Ainsi, DIR ’*.DOC* recherche tous les fichiers avec 
V extension .DOC, el DIR ’B*.*' les fichiers commen^ant par la 
lettre B, 






BASIC C/A 


INSTRUCTION I/O DIR 

suite 


L* instruct ion DIR per met aussi d’uliliser le systeme de hierarch ie 
des fichiers (\) d'UNIX (ou MS-DOS). Ainsi, Instruction DIR 
‘XKFZXTNRV*.*’ recherchera tons les fichiers du repertoire ’TNR\ 
lui-meme contenu dans le repertoire *KFZ\ lui-meme contenu dans le 
repertoire principal, 

Grace au ter me supplemental re facultatif TO "fich", il est possible 
d’imp rimer un listing des fichiers recherches ("LST:") ou de 
sauvegarder cette meme list© sur un fichier quelconque. 

Ainsi, I’exemple ci-dessus va creer, sur la disquette de Punite A, 
un fichier de nom ’TABMAT* qui contiendra tous les fichiers de 
cette disquette, et sort la nouvelle liste des fichiers (qui 
comprend main tenant le fichier de nom "TABMAT") sur imprimante. 
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FONCTION 


DIRS 


Synttixc : 

DlR$(n) 

Exemple : 

M1CD1R "\TEST" 


CHDIR “\TESr 


PRINT D1R${0) 

Fmtclim : 

Donne le nom du repertoire act if de 


Punite dc disquettes numero n. 


Explication : 

V est une expression numerique dont la valeur indique le numero 
du lecteur de disquettes (1=A:, 2=B: t ...0=Iecteur utilise). 

Cette fonction rctourne le nom du repertoire aetif pour P unite 
consider^. S'il s’agit de la directory principal©, la fonction 
renvoie une chaine de caract^res vide. 


-95 - 









BASIC CIA 



INSTRUCTION ARITHMETIQUE DIV 

Syntaxe : 

DIV var,n 

Abrev , ; 

DIV 

Exemple : 

DIM A%( 10000) 

FOR 1=1 TO 10000 

A%(I)=5 

NEXT 1 

T-TIMER 

FOR 1=1 TO 10000 

DIV A%(I),5 

NEXT I 

PRINT (TIMER-TJ/200 

T=T1MER 

#■ 

FOR i=l TO 10000 

A%(l)=A%(I)/5 

NEXT I 

PRINT (TIMER-T)/200 

Fmction : 

Divise la valeur de var par n 

Explication : 



'vetr* doit etre une variable numcrique ou un element de tableau 
numdriqua 'n* est une expression numerique. 

DIV var,n est identique a var=var/n. L’avantage de Pi nst rue lion 
D1V reside dans la vitesse d'execution (il suffit de tester 
rexemplc 1). De cette manicre, la vitesse cPexecution deja tres 
elevee peut encore etre augmentee (d'environ 30% dans I’exeniple). 
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INSTRUCTION DE STRUCTURE DO-.LOOP 

Syntaxe : 

DO 

LOOP 

A brer, : 

DO 

L 

Exempic : 

DO 

INC I 

PRINT i 

LOOP 

Fane lion ; 

Met en place une boucle sans fin. 

Explication : 



*• 

La partie du programme qui se trouve entre DO et LOOP est rcpetee & 
I* inf ini. 

On pcut sortir de cette boucle par Pi instruction EXIT. Si cette 
dernier© instruction n’est pas utilisee, il ne reste plus qu’une 
solution pour interrompre le programme : faction simultanee sur 
les touches <CONTROL>, <SIIIFT> et <ALTERNATE>. 
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INSTRUCTION GRAP1I1QUE DRAW 


Syntaxe : DRAW (TOJ xO,yO 

DRAW xO.yO TO xl.yl [TO x2,y2..J 

Abrew ; DR 

Exemples : DRAW 10,10 

DRAW TO 200,10 

DRAW 200,10 TO 200,300 

DRAW 200,300 TO 10,300 TO 10,10 

Function : Affiche un point ou relie deux ou plusieurs 

points entre eux par deg droites. 


Explications : 

(x0y0), (xi,yl),... sont les coordonnees de points, l'origine des 
axes etant le coin superieur gauche de Pecran, 

V instruction DRAW x,y affiche un point et est identique a 
V instruction PLOT x,y. 

DRAW TO x,y relie le point (x,y) avec le dernier point qui a etc 
affiche (par PLOT, LINE ou DRAW). 

DRAW x0,y0 TO xl,yl relic les points (x0,yO) et (xl,yl) par une 
droite, et est identique a Pinstruction LINE xO,yO v xl v yl. 

DRAW x0,y0 TO xl ,yl TO x2 f y2 TO.., relie dans Pordrc les points 
(x0,y0), (xl,yl), (x2,y2),.„ par des droites. 

L*cxemple per met de tracer un rectangle. 
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INSTRUCTION EDIT 

Syntaxe : 

EDIT 

Ahrev. : 

ED 

Example ; 

PRINT "Retour 4 l’editeur sang" 

PRINT "boite d'alarme" 

EDIT 

Foticlion ; 

Retour 4 l’editeur. 

Explication : 



Utilise en mode direct, cette instruction permet de revenir a 
l'editeur. Dans un programme, Tinstruction EDIT a presque le mfimc 
effet que END, avec la difference que la main est rendue a 
l'editeur sans passer par la boUe de fin de programme. 
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BASIC Of A 


INSTRUCTION gkapihque ellipse 


Syntaxe : ELLIPSE x,y,rx,ry[ 1 phiO,pMlJ 

Abrev. .* ELL 


Exemples : ELLIPSE 320,200,300,250 

ELLIPSE 320,0,320,400,1800,3600 

Fonciton : Trace unc ellipse (ou un arc d’ellipse) 

de centre (x,y) et de demi-axes rx et ry. 

Explication : 


Le coin superieur gauche sert d’origme pour le centre de 
coordonnees (x,y). 

#■ 

Le centre ei les demi-axes peuvent etre choisis de telle sorte que 
Pell ipse n’apparaisse pas entleremcnt sur Pecran. 


Vx’ est la longueur du demi-axe horizontal et ry celle du demi*-axc 
vertical. 


Si Ton veut uniquement tracer un arc d’ellipse, on definit l’angle 
de depart phiO et l'angle final phil. Ces angles doivent etre 
donn6$ en 1/10 de degres, sachant que 0 degre (0) se trouve a 
droite, 90 degres (900) en haut, ISO degres (1800) h gauche, 270 
degr£$ (2700) en has et 360 degres (3600) a nouveau a droite. 

(voir aussi DEFL1NE), 
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Annexe A 



INSTRUCTION END 

Syntax? : 

END 

Abrew : 

END 

Exempte : 

DO 

INC I 

IF 1=10000 THEN 

END 

END1F 

LOOP 

Fauction : 

Fermc tous les fichicrs el termine 

Pexccution du programme. 

Explication : 



Les instructions END peuvent etre placees partout dans 
programme. L’emploi de END en fin dc programme cst facultatif. 
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BASIC C/A 


FUNCTION 


EOF 


Syntaxe : EOF([#]n) 

Exemple ; OPEN "DAT* 1 

PRINT 23456" 

CLOSE #1 
OPEN w r,#1 "DAT" 

DO 

PRINT INP(#I),EOF(#l) 
EXIT iF E0F{#1) 

LOOP 


Fonction : Indique si Pon se trouve k la fin du 

fichier ayant pour numero de canal n. 

Explication : 


V est unc expression entiere comprise entre 0 et 99 qui 
correspond au numero d’un canal dc donnees ouvert avec OPEN. 


Pour chaque canal dc donnees, il existe un pointeur de fichier 
(pointcur de lecture et d’ecriture) qui pointc sur un octet precis 
du fichier. 

Si le pointeur est en fin de fichier, la fonciion EOF retourne la 
valeur -1 (cette valeur correspond k la valeur logique ’vrai’}. 

Dans les autres cas, la function retourne la valeur 0, 


La Ligne de programme EXIT IF EOF(#l ) tirce de Pexemple evite 1c 
message d'errcur ’Fin de fichier atteinte, EOF. 

Cette instruction ne pent 6tre utilises que pour des fichiers sur 
disquette (et non pour CON: LST: etc...). 
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INSTRUCTION ERASE 

Syntaxe : 

ERASE tableauO 

Abrev . 

ER 

Example : 

DIM A( 100,50,5) 

PRINT FRE(O) 

ERASE A() 

PRINT FRE(O) 

DIM A(3000) 

Fonethn : 

Efface un tableau et libere la 
place memoire correspondents. 

Explication : 

* 



L'instruction ERASE perme! cTcffacer un tableau de nom ’tableau 1 
qui a ete dcfini avec l 1 instruction DIM, Par la suite, il est 
naturellemem possible de redofinir un tableau de mcme nom. 

Si un tableau n’esst plus utilise dans la suite du deroulement d’un 
programme, II peut etre avantageux (surtout s’il reste pen de place 
disponible en memoire principale) de Feffacer avec ERASE, De 
cctte maniere, la place qui a ete rcservee est ft nouveau enlicre- 
raent disponible. 
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BASIC GJA 



FONCTION ERR 

Synlaxe : 

ERR 

Example : 

ON ERROR GOSUB Routinerreur 

PRINT SQR(-I) 

PROCEDURE Routinerreur 

PRINT * Erreur No : ";ERR 

RETURN 

Fauction : 

Retourne le code de Ferreur rencontree. 

Explication ; 



ERR-est en realite une variable qui contient le code de la derniere 
erreur rencontrec (voir annexe B), 

ERR ne pern pas etre utilise commc nom de variable, itteme en 
relation avec LET. 

(voir aussi FATAL, ERROR et ON ERROR). 
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INSTRUCTION ERROR 

Synlaxe : 

ERROR n 

Abrev. : 

ERR 

Example : 

PRINT 'Tapez le code d’erreur : 

INPUT f 

ERROR f 

Function : 

Simule Papparition d*une erreur dont 

1c code est n. 

Explication : 



n est une expression entidre dont la valeur est comprise entre - 
12g el 127. 

ERROR n simule unc erreur dont le code d'erreur est n. Si 
1* instruct ion ON ERROR GOSUD a ete utilisee, on se tranche au 
sous-programme correspondent ; si non un message cfexrcur relatif 
au code n est affiche (voir annexe B) et le programme est 
interrompu. 
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BASIC CfA 



FONCTION EVEN 

Syntaxe : 

EVEN(n) 

Exem ple ; 

REPEAT 

INPUT ’’Entrez un nombre pair, s.v.p : ";N 

UNTIL EVEN(N) 

Fonclion : 

Determine la pa rite d’un nombre. 

Explication : 



V est une expression numerique. Si n esl pair, EVEN(n) retoy me 
l. Si n est impair, on obticnt 0, 

(voir ODD). 


- 106 - 






Annexe A 


INSTRUCnON/FONCTION EXEC 


Syntaxe ; EXEC flg,nom,cmd,env 

EX EC(flg,nom,cmd ,env) 

Exemple ; RESERVE FRE(0)-10G00 

EXEC 0:'TEST.PRGY7* 

RESERVE FRE(0)+10000-255 

Function : Chargement et execution de programmes 

machines ou de programmes compiles, a 

partir de la disquefte. 

Explication ; 

'fig peut prendre deux valeurs : 0=Load and Go, 3=Load Only. 

#■ 

'noni est le nom du programme. 

'cmd’ est la ligne de command© a transmettre (voir BASE PAGE), 

'env esl la chaine-environnement (bien sou vent, "" suffit). 

Le programme en question est charge en memoir© & partir de la 
disquette, les adresscs absolues sont transformces en actresses 
relatives, une page de base est creee - avee la ligne de commande - 
et, le cas 6eheant, le programme est execute. Dans Pexemple, on 
reduit tout d’abord la place memoire reserve© au BASIC de 10000 
octets. Cette zone sera a nouveau ailouee au BASIC a la fin de 
I'operation. Si EXEC est utilise comme une fonction, on obtient 
soil le parametre rctourne par le programme, soil (pour flg=3) 
fadresse de la page de base du programme charge en memoire, 

(voir aussi RESERVE el HIVTEM). 
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BASIC C/A 


FONCTION 


EXIST 


Syntoxe; EXISTC'specfidi") 

Exempts ; OPEN "0\# l "FICHIER DOC 1 

CLOSE #1 

PRINT EXlST( ,, FlCHlER ,r ) 

PRINT EXIST( P FIC*,DOC h ) 

PRINT EXIST("* .*") 

Fonction : Teste I’existence d’un fichier sur disquette- 


Explication : 

3 Spec fief? est un nom de fichier qui peut posseder toutes les 
specifications possibles (voir DIR). 

Si le fichier cxiste, la valeur -1 est retournee. Si le fichier 
n’cxiste pas, la valeur 0 est retournee. 

Un fichier n*est trouve que si le nom qui a etc entr6 coincide 
exactement avec le nom dans le repertoire (extension inclue). 
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INSTRUCTION DE STRUCTURE EXIT 

Syntax# ; 

EXIT IF Condition 

Ah rev. : 

E 

Exempie ; 

DO 

A=A+1 

PRINT A 

EXIT IF A=20 

LOOP 

Function : 

Permet de sortir d’une boucle. 

Explication : 



Si P instruct ion EXIT est rencontree a Pintcricur d’une boucle, le 
deroulement du programme se poursuit & la premiere instruction en 
dehors de la boucle. Cette instruction permei de sortir de 
n’importe quelle boucle: 

FOR.. NEXT, DO...LOOP, REPEAT...UNTIL et WHILE..*WEND. 
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BASIC G/A 


FONCTION 


EXP 


Synlaxe; EXP(x) 

Excmples : PRINT EXP(1) 

PRINT EXP(0.5) 

PRINT EXP(-2) 

Fonction : Calcule r exponent idle de x (e A x e=2J1828I8285). 

Explication * 

V est one expression numerique quclconquc. 

La fonction EXP(x) calcule e (tee du logarithme nipdrien) h la 
puissance x. 
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CONSTANTE FALSE 

Syntaxe : 

FALSE 

Exemple ; 

FIag!-FALSE 

Function : 

Constante 0 

Explication : 



H s’agit simplement d f une autre ecriture cle hi valeur boolccnne 
"faux 0 , FALSE est equivalent a 0. 

(voir Piussi TRUE). 

#■ 
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BASIC G/A 



FONCTION FATAL 

Sytuaxc : 

FATAL 

Exemple : 

ON ERROR GOSUB Routincrrcur 

ERROR 5 

PROCEDURE Routinerreur 

PRINT "FATAL^'jFATAL 

RETURN 

Frnctim : 

Rctourne la valeur 0 ou -1 scion le type 
de l’erreur. 

Explication : 



La fonction renvoie la valeur 0 pour les erreurs T ncrmales\ La 
valeur -I est retotirnee pour toutcs les erreurs qui nc permetteni 
pas de retrouver Fadresse de la derniere instruction (en general, 
eda concerne uniquement les erreurs a Finterieur du systemc 
d’exploitation qui conduisent a Farfichage bien connu des borabes 
et a la destruction du programme). 
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INSTRUCTION I/O FIELD 


Syntaxe : FIELD [#]n,expres AS varch... 

Abrev. : FIE 

Example : OPEN "R",# I ,”T£ST\50 

FIELD #1,20 AS A$,30 AS BS 
FOR 1=1 TO 4 
INPUT Trenom,nom: ",P$,NS 
LSET A$=P$ 

LSET E$=N$ 

PUT #1,1 
NEXT I 

FOR 1=4 DOWNTO 1 
GET # 1 ,t 
PRINT A$,B$ 

NEXT I 


Function ; Subdivise des enrcgistrements en champs de donnees. 


Explication : 

V est une expression emiere comprise entre 0 el 99 qui est le 
numero d*un canal de donnees prealablcmcnt ouvert avec OPEN. 

'expres est une expression entiere qui defintt la longueur du 
champ. 

'varch' est une variable chaine de caractcres (et non pas une 
variable tableau) qui recoil les donnees. 

L’ensemble 'expres AS varch* peul 6tre repete plusieurs fois (en 
les separant par des virgules) si reoregtstrement doit etre 
subdivise dans plusieurs champs. 

La somme des longueurs des champs devrait etre egale & la longueur 
de Y enregistrement. 

A chaque canal de donnees ouvert, on ne peut faire correspondrc 
qu’une seule instruction FIELD. ==> 
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BASIC Of A 


INSTRUCTION I/O FIELD 

suite 


On ne peui en aucun cas modifier la longueur de varch’, si cette 
variable doit encore fctre utilisee par les instructions GET et PUT. 
L’affectation des variables ’varch’ devrait fctre realise© avec les 

instructions LSET et RSET. 

Dans Pexemple, on cree un fichier k acces direct qui est lu en 
partant de la fin. 

Le BASIC GfA n'utilise pas de zone tampon pour ce mode d’acces. 
Cost pourquoi VARPTR(#n) n’est pas possible. 
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Annexe A 



INSTRUCTION I/O FILES 

* 

Syntaxe : 

FILES ["speefich" [TO "fich”]] 

Abrev, : 

FILE 

Exemptes : 

FILES "A:* *" TO ■’AjTABMAT" 

FILES "A:*.*” TO "LST:" 

Fonctwn : 

Lisle les fichicrs d'une disqueltc. 

Explication : 



*$pecfich' est un mom de fichicr pour Icq u cl toutcs Ics 
specifications sont possibles (voir DIR). 

L’instruction FILES est presque identique a DIR, mats la lisle 
obienue est plus detaillee : & cdte du nom de fichier, figurent 
egalcment sa taille, Fheure et la date de creation. 
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BASIC C/A 


INSTRUCTION 



Syntaxe : FILESELECT M specfichYnomfich\xS 


Abrew : 


FILESE 


Example: DO 


FILESELECT *\* *’\B$ 1 A$ 
EXIT IF AS= 1,M 
PRINT AS 
LOOP 


Function : Met en place un boite de selection de fichiers. 


Exp lication : 

spec fiefi 1 est appele chemin de selection* II s’agit du critere de 
selection des fichiers pour let]uel toutes les specifications sent 
possibles (voir DIR), Le critere de selection minimal est 
Dans ee cas, tons les fichiers de la directory principalc sur 
1'unite utilises sont affiches dans la boite de selection. 

\x5T est une variable chalne de caracteres quelconque a laquelle 
est affecte le nom du fichier choisi par V utilisatour, En aliquant 
sur simulation, on affecte & x% la chafne vide. 

four une meilleure comprehension* il est vivement conseilie de 
tester Fexemplc. 
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INSTRUCTION GRAPHIQUE FILL 

Syntaxe : 

FILL x,y 

Ahrev . ; 

FI 

Excmple : 

BOX 10,10,100,100 

DRAW 200,20 TO 300,20 TO 300,300... 

... TO 200,300 TO 200,22 

DEFFILL 1,2,9 

FILL 50,50 

DEFFILL 1,2,8 

FILL 250,280 

Fmction : 

Remplit une surface avec differents motifs. 

Explication : 



x el y sont les coordonnees du point ft part if duquel le remplissage 
commence. 

I/origine des coordonnees se situe dans le coin superieur gauche de 
fecran. Le point central de fecran a pour coordonnees (320,200) 
en haute resolution. Si le remplissage doit se restreindre a une 
surface Umitee, il faut faire attention ft ce que la frontiere de 
cctte surface ne comporte aucun trou (voir excmple). 

Le motif de remplissage est defini avec P instruct ion DEFFILL. 
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BASIC G/A 



FONCTION FIX 

Syniaxe : 

FIX(x) 

Examples : 

A=3.I4I5 

PRINT F1X(A) 

PRINT FIX(-12) 

PRINT RX(-1.99) 

Fonction : 

Ketourne la partie de x situee avant la virgule. 

Explication : 



'x' est une expression numerique quelconquc. 

Pour des valeurs positives de x, cette fo net ion est identique a 
INTf La difference apparait pour les nombres uegatifs. Ainsi, 
FIX(-1.99) donne le resultat -1, alors que 1NT(-1.99) donne -2. FIX 
(et non pas I NT) est complcmentaire k FRAC (voir fonction FRAC). 
On a : 

x = FIX(x) + FRAC(x) 

La fonction FIX est identique k la fonction TRUNC. 
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INSTRUCTION DE STRUCTURE FOR „* NEXT 


Syntaxc ; FOR Var = d fDOWN]TO f [STEP s] 

NEXT Var 

Abrew : F [DOWNJTO STEP 

N 

Exemple : FOR 1=3 to 5 

FOR J=5 DOWNTQ 3 
FOR K=1 TO 5 STEP 2 
PRINT I,J,K 
NEXT K 
NEXT J 
NEXT I 

Fone lion : Met en place une boucle dont le nombre 

dc passages est fixe. 


Explication ; 

On affecle & la variable Var la valeur d ei on execute les 
instructions entre FOR et NEXT, Var est ensuite (une fois sur 
NEXT) augment© de la valeur s et on teste si le eontenu de Var 
est superieur a f. Si ce n’esi pas 1c cas, le programme sc 
rebrtmche sur FOR. Ce processus est repete jusqu'a ce <|ue 
Var depasse la valeur de fin f. 

Si s est ncgalif, le processus est inverse : Var est diminue* et on 
leste si Var est plus petit Que f. 

Si la partie facultative STEP s est absente, s prend la valeur t 
par defaut. 

Si on utilise DOWNTO & la place de TO* il est interdit d’employer 
STEP s et s prend toujours la valeur -I, ==> 
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BASIC C/A 


INSTRUCTION DE STRUCTURE FOR ... NEXT 

suite 


Les boucles FOR-NEXT peuvent fitre embailees Ie$ lines dans les 

autres. 

La vitesse d’execution d’une boude FOR-NEXT pent etre sensi- 
blement augmcntee si on choisit une variable enticic pour le 
comptcur dc boucle ’Var'. L’exeniple suivant met en evidence une 
diminution du temps d’execution qui passe de 1.19 s a 0.40 s par 
la simple utilisation de la variable cnticrc 1% a la place de I; 

T=TIMER 

FOR 1-1 TO 10000 

NEXT 1 

PRINT (TlMER-T)/200 
, T-TIMER 

FOR 1%= l TO 10000 
NEXT 1 % 

PRINT (TIMER-T)/200 
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INSTRUCTION I/O FORM INPUT 


Syttfaxc : 

FORM INPUT n,var 

Abrcv, ; 

F MINPUT 

Example : 

PRINT "Entrez votre nom" 

PRINT "(max. 15 leltres)’ 1 

PRINT AT(15,15); 

FORM INPUT 15,NomS 

PR INI’ 11 Vo us vous appelez “;Nom$ 

Fmciim : 

Permet de saisir une chaine de caracteres 
dont la faille est limitee, durant 

Fcxrcution du programme. 

Explication : 



indique ia longueur maximalc dc la chaine de caractdres. 

'var' est le nom de cette chaine. 

Si I’interprclcur rencontre P instruction FORM INPUT, U interronipt 
f execution du programme et Putilisateur a la possibilitc d’entrer 
au clavier tine cliaine de caractercs. Le nombre maximum de 
caracteres pouvant etre introduits est fixe par n. Si on attcint 
eeltc faille limite, un son de cloche retentit. 

Une chatnc de caractercs saisie au clavier comporte au maximum 255 
earacteres. 

==> 
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BASIC C/A 


INSTRUCTION I/O FORM INPUT 

suite 


Les caracieres speciaux peuvent etre saisis an clavier ct alTiehes 
de trois manicres differentes : 

- en appuyant simultanemcnt sur la touche <ALTERNATE> et 
une autre touche. 

- en appuyant simulancmcnt sur les touches <CONTROL> et 
<S>, puis sur une touche quelconque. 

- en appuyant simultanemcnt sur les touches <CONTROL> et 
<A>, puis en tapant ie code ASCII du caractere & afficher. 


Tors d’une saisie au clavier, on peut comme d"habitude effectuer 
ties corrections a [’aide des touches <DELETE> et <BACKSPAC£>. 
Avec les touches de deplacement ’a droite* et *a gauche*, on peut 
atteindre n’importe quel caractere deja introduit. Avec les touches 
de deplacement *vers le hauf ct *vers le has*, on peut placer Ie 
curseur respectivement au debut et a la fin de la chaine 
introduite. 

Ce mode d’introduction des donnees est 1c rnfinie pour INPUT et 
LINE INPUT. 
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INSTRUCTION I/O FORM INPUT AS 

Syntaxe: 

FORM INPUT n AS var 

Abrev. : 

F MINPUT 

Exemple ; 

PRINT "Modification de la chaine" 

LET Chaine$= h Ancienne Chaine" 

PRINT AT<I5*i5); 

FORM INPUT 15 AS ChaineS 

Fonciion : 

Permet de modifier unc chaine de 

car act exes durant l T excculion du programme. 

replication ; 



f n' indlque la longueur maxi male de la chaine devant Strc saisie. 

'mr' est le nom d’une variable alpha numertque. Cette instruction 
eat similaire a FORM INPUT ; la settle difference reside dans le 
fait que l'ancien comenu de la chaine de caracieres ’var* est 
afftche, avant d’fitre modificL 


- 123 - 






BASfC C/A 



FONCTION FRAC 

SynUixe ; 

FRAC(x) 

Exemples : 

A=-10.I234 

PRINT FRAC(3.I415) 

PRINT FRAC(A) 

PRINT TRUNC(A)+FRAC(A) 

Ef/et : 

Retourne la partie de x situee acres la virgule. 

Explication : 



' x* esl une expression numerique qudeonque. 

FRACfx) tronque la partie de x avant la virgule et rest it ue la 
partie de x apres la virgule. Pour des valeurs entiercs de x, 
FRAC(x) retourne done la valeur 0. 

On a : FRAC(x)=x-TRUNC(x) 

HR AC est la fonetion complements ire de TRUNC et non de INT 
(voir INT et TRUNC). 
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FONCTION FRE 

Syntaxe : 

FRE(x) 

Example : 

PRINT FRE(A%) 

DIM NS(IODO) 

PRINT FRE(0) 

Fmciim : 

Catcule la taille en octets de la place 
memoire encore disponiWe. 

Replication : 



Le parametre x, qui pout etre une expression numerique, n’est pas 
pris en compte. 

A Rappel de la fonction FRH, le BASIC GfA calcule* en nombre 
d'octets, la place encore disponiblc de la memoire principale apres 
avoir effcctuc une *garbage-collection' (collecte ct effacemcnt de 
h place non utilisee de la memoire principale). 
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BASIC GfA 



INSTRUCTION FULLW 

Sy tit axe : 

FULLW n 

Abrev . : 

FU 

Exempt q : 

FULLW 2 

Vvnclkm : 

Agrandit ia fenStre numcro n & la taille 
de fecran. 

Kv plication : 



Vi' est une expression numcrique qui indique le numcro de la 
fenetre. 

Si la fenfitre n n’est pas encore ouverte, son ouverture a lieu 
automat iqucment. 
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INSTRUCTION GET 

Sytttaxc : 

GET xO*yO*xl,yl,a$ 

Ahrev , ,* 

GET 

Exempte : 

FOR 1-1 TO 5 

CIRCLE 320,200,1*40 

NEXT 1 

GET 0,0,320,399,A$ 

PUT 320,0,A$,3 

Fauction ; 

Affecte une zone rectangulaire de Pecran 
transformee en une suite de bits a la 
chaine de caracteres aS. 

Explication ; 



(xO,yO) et (xl.yl) sont les deux sommets di agon a lenient opposes do 
rectangle qui doit £tre to. 

'tfS’ est one variable chairte de caracteres qui va rcccvoir la serie 
de bits corresponds (He. 

Avcc rinslruclion PUT* on peut inversement afficher une partie de 
Pec ran prealablement memorisee dans a$ & une place quelconquc tte 
Pecran (voir PUT), ==> 
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Annexe A 



INSTRUCTION DE STRUCTURE COSUB 

Synlaxe : 

GOSUB nom [(listexpres)] 

Abiev. ; 

GO ou @ 

Exemple : 

PRINT "Programme principal" 

GOSUB ler.niveau 

PRINT "Retour du 1" 

PROCEDURE lcr.niveau 

PRINT'’Procedure 1" 

GOSUB 2eme.mveau(3,2) 

PRINT "Relour du 2" 

PRINT A.B 

RETURN 

PROCEDURE 2eme.niveau(AJ3) 

* 

PRINT A,B 

PRINT "Procedure 2" 

RETURN 

Fonciim : 

Appelle la procedure dont le nom est ’nom’, 

Y.k plication i 



'nom 7 est le nom de fa procedure appelec. 

Le nom d'une procedure peut commencer par un chifTre, a l 1 inverse 
des noms de variables. Pour les caractcres suivants, le BASIC GfA 
autorise : les let Ires, les ch iff res, le souligne et le point. 

’lislexpres' est une liste d'expressions separees par des virgules 
qui sent transmises aux variables locales de la procedure (voir 
PROCEDURE). 

Lorsque Pinterprcteur rencontre une instruction GOSUB, il so 
branche sur la procedure avec le nom correspondant. =-> 
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BASIC QjA 


INSTRUCTION DE STRUCTURE GOSUB 

suite 


II est possible, k IVintcricur d'une procedure, d’appeJer une autre 
procedure par GOSUB. 

11 est meme possible, a Pintcrieur d’une procedure, d’appelcr ft 
nouveau la procedure oil Ton se trouve (appel recursif). 

L’excmplc appelle, k partir du programme principal, la procedure 

* I cr.niveau*. A r inter ieur de la procedure Mer.niveau’, on 

trammel, par l’appel de la procedure ^eme.niveau", les valeurs 3 

et 2 aux variables A et B. Enfin, la procedure f 2cme.nivcau* 

afficlie ces deux variables k TecraiL Pour bien montrer quo A et B 

sent locales ft la deuxieme procedure, on affiche k nouveau les 

variables A et B apres avoir quitte la deuxieme procedure : on 

obtient deux fois la valeur 0. 

* 

(voir PROCEDURE, RETURN, LOCAL). 
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INSTRUCTION BE STRUCTURE GOTO 


Syttiaxe : 
Abrev. : 
Exemple ; 


Fond ion ; 

Explication : 


GOTO etiquette 

GOT 

Boucle: 

PRINT "Boucle sans fin ■; 

GOTO Boucle 

Permet m branchemcnt incondition ncl. 


'etiquette est one chaine de caracteres formee de lcttrcs, de 
ch iff res, du souligne et du point* Cette chaine peut commencer par 
un chiJTre, fi 1’inverse des norrts de variables. 


Centime le BASIC GfA travaille sans les numeros de lignes, il est 
necessaire de roarquer I’cndroit oil doit sc positionner le compteur 
de programme. On utilise pour cela un nom d’etiquette (label) suivi 
Tun double-point. 


Lors d’une execution, quand P interpreter rencontre un GOTO, il se 
tranche <Se manterc incondittonnclle apres la ligne reperee par 
Pctiquctte correspondence. 

L*exemple simulc une boucle DO...LOOP. 
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BASIC CfA 


INSTRUCTION GJRAPHIQUE CRAPHMODE 


Syntaxc : 

GRAPH MODE n 

Ahrev. : 

G 

Exemple : 

DEFFILL 1,3,4 

PBOX 10,100,150,250 

GRAPHMODE 4 

DEFFILL 1,3,5 

PBOX 120,200,200,300 

GRAPIIMODE 1 

PBOX 120,1 SO,200,50 

Function : 

Met en place le mode graph ique : 
n= 1 : replace 

* 

n~2 : transparent 

n=3 : xor 

n=4 : reverse transparent 

replication : 



Le mode graph ique n'intervient que lorsque plusieurs tillages dot vent 
se supcrposcr. 

Si n= 1 (mode normal), 1’ancienne image est remplace par la 
nouvelle. Si n=2, la nouvedle image est t ran spa rente, c'est4-dire 
que l’ancicnne image apparait au travers de la nouvelle. 

Pour n=4, c’esi a pen pres la mOme chose. L 41 seule difference est 
que l‘image affiehee en dernier esl representce en inverse-video. 

Si n=3, chaque point de la nouvelle image est allumfi, s’il ctait 
prccedemment eteint et est eteint s’il eta it alfume. Par double 
affichage, ce mode graph ique per met de crccr des images 
clignotantes ct memes des images en mouvement. »=> 
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Annexe A 


INSTRUCTION CRAPH1QUE GRAPIIMODE 

suite 


Ainsi, Pexemple simple suivant trace un cercle qui peut fctre 
deplace sur Pecran a Paide de la souris. 

Si la touche gauche de la souris est enfoncee, une copie du cercle 
e$t fixee : 


DO 

IF K=1 THEN 
GRAPIIMODE l 
ELSE 

GRAPIIMODE 3 
ENDIF 

MOUSE X,Y,K 
CIRCLE X,Y,$0 
CIRCLE X,Y,5G 
LOOP 
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INSTRUCTION I/O HARDCOPY 

Syntaxe : 

HARDCOPY 

Abm\ : 

II 

Exempts ; 

GRAPHMODE 3 

FOR 1=0 TO S00 STEP 8 

BOX I MOD 640, 1 MOD 400, 639T... 

...MOD 64039-1 MOD 400 

NEXT I 

HARDCOPY 

Function .* 

Provoque une hardcopy. 

Explication : 



Une hardcopy est la sortie du contenu de T6cran $ur imprimante 
fraction simultanee sur les touches <ALTERNATE> et <HELP> 
provoquc cgalemcnt unc hardcopy). 

L'execution dc la hardcopy peut etre interrompue en appuyant sur 
les touches <ALTERNATE>^;HELP>. Si rimprimante n’est pas 
branched, le programme reprend la main m bout de 30 seconder 
environ. 
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Annexe A 



FONCTION HEX$ 

Syttiaxe : 

IlEXS(x) 

Exemple ; 

A=-l 

B=&022 

PRINT HEXS(A) 

PRINT HEXS(234) 

PRINT HEXS(B) 

Function : 

Convertit x en une chaine de caracteres 
representant recriture hexadecimale de x. 

Explication : 



V est m enticr rclatif Centre -2147483648 et +2147483647) dans 
une -representation queleonque (c’esl-o-dire !a representation 
decimale normale (sans prefixe), la representation hexadccimale 
(prefix© & ou &H), la representation octale (prefixe &0) ou la 
representation binaire (prefixe &X)) ou une variable du type 
correspondent. 

HEXS(x) convert*t la valeur x en une chaine de caracieres 
represen la nt 1’ecriture hexadecimal© de x (cela signifie que la 
variable B de J’exemple est converge en la chaine "12"). 

I1EX$, de meme que BIN$ et OCT$, considcrent les en tiers relatifs 
commc unc serie de 32 bits* et les representent done sans signe, a 
I’inverse de la representation decimale normale. 

(voir aussi OCT${x), BIN$(x) et STR$(x)). 


- 135 - 






BASIC CfA 



INSTRUCTION GRAPII1QUE HIDEM 

Syntnxe : 

H1DEM 

Abrev. : 

HI 

Exempk : 

IlIDEM 

DO 

PLOT MOUSEX,MOUSEY 

LOOP 

Fond ion : 

Fait disparaitre le curseur de la souris. 

Explication : 



11 est parfois interessaet de fairc dispnraltrc totalement do 
recran le curseur de la souris. Cette instruction interrompt la 
representation du curseur de la souris. Si par la suite on fait 
appd a VAES (GEMSYS, ALERT, etc), la souris redevlent visible. 
L’exemple ci-dessus permet de dessiner avec une souris invisible. 

(voir aussi SUOWM). 
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Annexe A 


FONCTION 


HI MEM 


Syntaxe ; 


1HMEM 


Example ; (voir EXEC) 


Fmctim : 


Retournc I’adresse de fin de la zone 
memoire reserve© an BASIC GfA. 


Explication : 

Le BASIC GfA occupe la zone memoire situee entre 0ASEPAGE el 
H1MEM (cette zone contient Pinterpreteur lui-meme, le programme, 
ics variables, r&Jiteur, etc...). Avec HI MEM, il est possible 
de determiner la premiere adresse qui n’est plus reserves au 
BASIC GfA (normalement, cette adresse est situee 16384 octets 
en dqsous de la memoire-ecran). Au-dela de I IIMEM, il dev rail 
toujours rester 4000 octets de libre : cette place memoire est 
necessaire pour les boites de selection dc fichiers et pour 
d’autrcs appels au GEM (malheureusemcnt, la taille exacte de cette 
zone memoire n’est pas precisee dans la documentation fournie par 
Atari, Des tests ont montr£ qu'environs 2500 octets sont 
necessaircs, de telle sorte que 4000 octets devraient suffire dans 
Lous les cas). 

(voir aussi RESERVE et EXEC). 
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BASIC G/A 



INSTRUCTION DE STRUCTURE IF 

Syntax? : 

IF condition [THEN] 

blocprogranime 

[ELSE] 

[bloc prog ram me] 

ENDIF 

A brew ; 

1 

EL 

EN 

Exempte : 

* 

INPUT A,B 

IF A=3 

PRINT "Vous avez gagne..." 

IF B=3 THEN 

PRINT "...le gros lot f 

ELSE 

PRINT "...le lot de consolation !" 

ENDIF 

ELSE 

PRINT "Vous avez malheureusement perdu.” 
ENDIF 

PRINT "A bientdt r 

Fonciim : 

Branche le programme sur differents blocs- 
progra mines, suivant la vateur logit]ue 
(vrai ou faux) de ’condition’. 

Explication : 



I.e deroulcment d r un programme depend sou vent de certaines 
conditions. 
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Annexe A 


INSTRUCTION DE STRUCTURE IF 

suite 


D’ou Futilitc de f instruction IF. 

St la condition e$l r&lisde, on execute les instructions <lu bloc- 
programme qui se trouve entre IF et ELSE (ou bien entre IF ct 
ENDIF, si ELSE est absent). Si la condition n*est pas remptie, on 
execute le bloc-programme entre ELSE et ENDIF (si l’instruction 
facultative ELSE manque, on passe A la suite). 

Dans tons !cs cas, apr£$ le traitement de I'instruction IF, le 
programme poursuit son execution en se branchant sur la premiere 
instruction apres ENDIF. 

Comme cettc instruction souvent utitis6c posscdc une syntaxe 
differe/ue de cclle des langages BASIC classiques, il est fortement 
conseille de tester te programme de Texcmple. 
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BASIC Of A 



INSTRUCTION ARITIIMETIQUE INC 

Syntaxe : 

INC var 

Abrev. : 

IN 

Example : 

T=TIMER 

FOR I%-l TO 10000 

INC A% 

NEXT 1% 

PRINT (TIMER-T)/200 

A%=0 

T=TIMER 

FOR I%=1 TO 10000 

A%=A%+1 

NEXT 1% 

# 

PRINT (T1MER-TV200 

Function : 

augmente var de la valeur 1. 

Explication : 



'var doit £tre one variable numerique on un element d’im tableau 
numerique. 

7*VC var esl identique a ’var=var+I\ 

I/avantage de rinstruction INC reside dans la concision de sa 
syntaxe (gain de place memoire) et surtout dans sa vitesse 
d’execution (testez Fexemple !). Ainsi, I'utilisation de 
l’instruction INC augmente dc fagon sensible la vitesse d'execution 
deja Ires elevee par ailleurs (environ du simple au double dans 
rexemple !), 
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INSTRUCTION 


INFOW 


Syntax# ; 
Ah rev. 

Exempfe : 
Fanctimi : 


INFOW n/info" 

INF 

INFOW 2/information*' 

Transmet k la fenetre numero n la (nouvelle) 

ligne d* informa lion ’info’. 


Explication : 


V est one expression nnmerique qui indique Ic numero de la 
fenetre dont on veut modifier la ligne d’information. 


La chatne de curac teres ’info 1 devient la nouvelle ligne 
cTinformation (la ligne situcc sous le litre). 


Si *tnfd* est une chaine vide, la ligne d’information est effae£e. 


Commc on ne pent pas, une fois la fenetre ou vei ls, fa ire apparnitrc 
ou disparaitre completement la ligne cPinfOnnation (GEM), il faut 
faire preceder V instruction OPENW par 1’instruction INFOW a,' 1 info” 
si on souhnite ou non afficher une ligne d’information. Avec INFOW' 
n”* avant OPENW', il n’y a pas de ligne d’information. Une ligne 
d’information, si die exists, peut felre modifiee a pres OPENW. 
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BASIC GfA 


FONCTION 


INKEYS 


SytUaxe : INKEYS 

Example: DO 

REPEAT 

ZS=1NKEY$ 

UNTIL ZSo* 

PRINT LEN(ZS) 

PRINT LEFTSCZSr ^ASCCZS), 

PRINT RIGHT$(ZS);” \ASC(RIGHT$(Z$)) 
LOOP 


Function : Lit un caractere enire au clavier. 

Explication : 

Celle fonclion retourne une chaine de caractcres compose© de 0, 1 
ou de 2 caracteres. 


Si* lors dc la derniere scrutation du clavier avec INKEYS, auctine 
touche n*a tie enfoncee, la chaine obtenue est vide. Si une touche 
a ei6 enlbncGe et que celle-ci poss&le un code ASCII (voir table 
CIIRS), la fonction retourne le caractere correspondant. Pour les 
autres touches (par ex. FI ou <HELP>)* on obiient une chaine de 
deux caracteres. Le premier caractere de cette chaine a toujours le 
code ASCII 0. Le deuxieme caractere peut ctre obtenu a I’aide de 
Fexemple (ex ; FI donnerait CHR$(0)+CHR$(59)). L’exemple 
suivant interrompt Pexecution du programme jusqu’a ce qu’unc 
touche soit enfoncee : 


PRINT "Appuyez sur une touche s.v.p " 
REPEAT 

UNTIL INK E ¥$<>”" 

PRINT " Merci." 
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FONCTION 


im 


Syntax#: INP(x) 

INP(#n) 


Exempts : OPEN "O",# I ."DAT" 

PRINT # 1 ABC 
CLOSE #1 
OPEN ’T^I/DAT" 

PRINT INP(#l) 

PRINT ''Appuyer sur une touche!" 

PRINT INP(2) 

Fottctim : Lit un octet sur un peripherique on sur un fichier. 


Explication : 


'x f cst ime expression entire comprise entre 0 et 5 et dotit la 
signification cst la suivante : 


0 pour LST: 

1 pour AUX: 

2 pour CON: 

3 pour MID: 

4 (ne sert pas) 

5 pour CON: 


La fonction INP(x) lit exactement un octet sur ie peripherique 
correspondant a Pindice x. LTxccution du programme cst 
interrompue jusqu’a ce qu’un octet soil disponible (c’est-4-dire 
pour n-2 par ex.: jusqu’a ce qu’une touche soit enfoncee). 

Pour les touches n’ayant pas de code ASCII, INP(2) retourne le code 
SCAN + 128 (Fl=l87). 

Poor x<0, on obticnt I’ctat du peripherique (cf 1NP?). 

INP(#n) lit un octet sur le fichier correspondant au canal de 
donnees n. Pour determiner si une donnee cst presente dans un 
canal, on utilise status=BIOS(l 1 n). 
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BASIC G/A 



FONCTION I/O INP? 

w 

Syntaxe : 

INP?(n) 

Exemple : 

IF INP?(1) 

(^Lecture 

END IF 

Fonction ; 

Fournit Tetat (pret a Arnett re ou non) 
d'un peripherique. 

Explication ; 



V est te numero du peripherique (0=LST: 1=AUX: 2-CON: 
3=M!D:), 

Cette fonction rciouroe la valcur 0 s’il n’y a pas d’oetet pret el 
-I (ou une valeur differente de 0} si non. Dans Pexcmplc, on 
appcllc un sous-programme des Iors quo te port serie a coliecte 
quelque chose. 

(voir aussi OUT?). 
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Annexe A 


INSTRUCTION I/O 


INPUT 
INPUT # 


Syntaxe : INPUT ["texte^ou OJvarUvar..,] 

INPUT #n,var[,var...J 


Ahrev. : 


INP 


Exemptes INPUT K 


PRINT AT(15,15); 

INPUT "Votre nom ";NS 
INPU T "fige et domicile: '',A,D$ 


Effei : 


Permet d’effectuer une saisie au clavier pendant 
Pexecution du programme. 


Explication : 

’texte' est une chaine de caracteres quelconque qui esi affichee 
sur Pccran avant la sfusie ties donnees, Ce lexte doit tou jours 
etre donne entre guillemets. 

'var est un nom de variable quelconque. 

Quand I’interpreteur rencontre une instruction INPUT, il interrompt 
rexecution du programme et Putilisateur a la possibilite d’entrer 
des donnees. Avec INPUT #n, les donnees sent lues sur le canal n. 
Si le texte (facultatif) est present, il est affiche a Pec ran et 
le curseur se positionne a droite du texte. Si un point-virgu 1c 
separe Texte* et ’var*, le texte est suivi d’un point 
d’inter rogation et d’un blanc. Si texte 1 et ’var 1 sont separcs par 
une virgule, Tintroduction des donnees commence immediatement ft 
droite du texte. 

Si les donnees introduces ne sont pas du memo type que les 
variables correspondantes, une sonnerie retent it au moment de la 
saisie *=> 
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BASIC G/A 


INSTRUCTION I/O 


INPUT 
INPUT # 
suite 


el la saisie peut fitre reef feet vice. Si la saisic esl cffectu6e ft 
partir d’un fjehier* un message d’eneur est ai'fiche. 

Une chaine de caracteres saisie avec INPUT ne peut depasser 255 
caracteres. Lors d’une saisie au clavier, on peut introduce des 
caracteres speciaux de 3 fa$ons differentes : 

- en appuyant simultanement sur la touche <ALTERNATE> et une 
autre touche. 

- en appuyant simultanement sur les touches <CONTROL> et <S>, 
puis sur une touche quelconque. 

- en appuyant simultanement sur les touches <CONTROL> ct <A>, 
puis en tapant le code ASCII correspondant au caractere special. 

Lors d'une saisie, on peut comme toujours effectuer des corrections 
avec <DELETE> et <BACKSPACE>. Avec les touches de dcpla- 
cemont <a droite> et <*i gaucho* on peut attcindre nTmportc 
quel caraetcre deja introduit. Avec les touches de deplacement 
<vers le haut> et <vers le bas>* on peut posit ionner le curseur 
respectivement au debut et ft la fin de la paitie introduce. 

Si les donnfies saisies comportent une virgule, seulc est prise en 
compte la par tie avant la virgule (a Pinversc de LINE INPUT). 
Cependant* la virgule ct la par tie suivanl la virgule ft Pintcrieur 
d'une chaine de caracteres sont prises en compte si In chaine est 
comprise entre guillemets, Les guillemets* quant ft eux, no sont pas 
memorises. 

Si plusieurs variables suivent Pi ns l ruction INPUT* les donnecs 
introduites doivent etre separees par des virgules ou des 
<RETURN>, 
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Annexe A 


FONCTION 


INPUTS 


Synlaxe .* 
Example ; 


Fanelion : 


lNPUT$(xl,#n]) 

OPEN "O",# 1 ."DAT" 

PRINT #1 , M GfA-BASIC* 

CLOSE #i 
OPEN T^l^DAT* 

PRINT INPUT$(3,#l) 

PRINT Introduces 5 caracteres !" 

PRINT INPUT$(5) 

lit x caracteres 4 partir du clavier 
ou d’un fichier ei retourne la chain© ainsi 

obtenue. 


Explic ation : 


'x’ est une expression entiere, dont la valour est comprise entre 0 
et 3276? (longueur maximal© d'une chain©), 

7i‘ est une expression entier© entre 0 et 99 qui correspond au 
numero d 4 un canal de donnees ouvert grace 4 OPEN. 


Si 1© terme facullatif est absent, la fonction lNPUTS(x) lit x 
caracteres a partir du clavier et retourne la chain© de caracteres 
correspondante. 

En ajoutant le terme ’#n\ les x caracteres qui doivent former la 
chaine sont lus a partir du fichier relatif au canal n, puis sont 
transmis par la fonction. 
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BASIC C/A 


FONCTION 


IN'STR 


Sy lit axe ; INS IR flnJaS.bS) ou 

INSTR (a$,b$[ T n]) 

Exempie : N$=*BASIC GfA" 

S$="BASIC 

PRINT INSTR$(N$,"A' 1 ) 

PRINT INSTR$(4,N$,"A") 

PRINT INSTRSCBASIC GfAVfB") 
PRINT 1NSTR$(N$,S$) 


Fonction : Recherche si la chainc dc earactcres h$ est 

continue dans aS, el en donnc la position. 

Explication ; 


V est une expression numerique qui indique a quelle position de 
a$ la recherche doit commences Si n est absent, la recherche 
commence a partir du premier caractere de a$. 

'a$' et ’hS’ sent des chaines de caractcres quelconqucs. 


Si aS contient b$, la fonction retourne In position dans a$ a 
lnquelle commence la sous*chaine b$. 


Si a$ ne contient pas b$, la valour 0 est retournCc. 

Si a$ est une chainc d’au moins un caractere et b$ une chains vide, 
on obtient egalemem la valeur 0. 

Si les deux chaines aS ei b$ sent vides, on obtient la valeur 1. 
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FONCTION 


INT 


Syntax?; INT(x) 

Exempt? : A “3 J 415 

PRINT INT(A) 

PRINT 1NT(678) 

PRINT INT(-LOOl) 

Fonction : Caiculc la partie enticre de x. 

Explication : 

'x' est une expression numerique quelconque. 

La fonction INT(x) calcule le plus grand entier relatif qui est 
infer iepr ou egal a x. 

Pour x positif, cela revient a tionquer la parlie de x situee apres 
la virgule (dans ce cas, INT est identique A la fonction TRUNC). 

Pour x negatif, INT arrondit x dans le sens dcs x negatifs. Ainsi 
Fexemplc INT(-LOOI) retourne la valcur -Z. 
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INSTRUCTION I/O KILL 

Syntaxe : 

KILL "specfich" 

Abrev . .* 

K 

Exemple : 

OPEN "0”,# 1 "EXEMPI.E* 

CLOSE 

FILES 

KILL "EXEMPLE" 

PRINT 

FILES 

Fmction : 

Detruit un fichier de la disquette. 

Explication : 

* 



’specfieft est une expression permettant de Selectiormcr un on 
plusieurs fichiers (voir DIR). 

Cependant, l’instruct [on KILL detruit un seul fichier, a savoir le 
premier fichier repondant an critfcrc de selection de ’spocfichL 

Lcs guillemets entourant *specfich’ sont places autoraatiquement par 
le BASIC GfA, au cas ou ils n'auraient pas ete tapes. 
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Annexe A 


FONCTION 


LEFTS 


Synlaxe: LEFT$(string[,n]) 

Exemple : NS="BASIC GfA" 

PRINT LEFT$(N$) 

PRINT LEFT$(N$,3) 

PRINT LEFT$(N$,I2) 

Function ; Prend le premier caractere on les n premiers 

caractcres (de gauche) de la chaine ’string’. 

Explication ; 

'siring 1 est one chaine de caractcres ou une variable chaine de 
caracteres. 

7t r est normalemcnl un entier natural ou une variable de menie type 
(cependant, on peot entrer un nombre decimal. L’editcur ne prcndra 
en coinple que sa partie entiere). 

Si le parametre facultatif n est absent, la fonction retourne 
uniqtiement le premier caractere de la chaine ’string’. 

Autrement, la fonction retourne une so us-chaine de ’string’ qui cst 
composes des n premiers caractcres (caracteres de gauelie). Les 
caracteres blancs sont egalemcnt pris en compte. 

Si n est supericur au nombre de caracteres de ’string’, la fonction 
retourne la chaine ’string’ elle-meme. Si n=0 s on obtient la chaine 
vide. 
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BASIC G/A 



FONCTION LEN 

* 

Syntaxe ; 

LEN(x$) 

Excmple : 

AS- 1 ' GfA" 

PRINT LEN(A$) 

PRINT LENO'BASIC+AS) 

Fauction : 

Calcule la longueur de la chaine de caracteres x$. 

Explication : 



l xS‘ est urn chaine de caracteres quelconque. 

LEN calcule Ie nombre de caracteres de la chaine x$. Lcs caracteres 
non affichables et les caracteres blancs sont ega lenient pris en 
comrpte. On obticnt dans Pcxemple les valeur 4 et 9. 
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INSTRUCTION LET 


Synfaxe ; [LET] var = expres 


Ah rev. ; 

LE 

Example : 

DIM A(I8) 

LET A{ 15) = 2*993 

LET MS = "GfA“ 

B - A(15) 

NS = MS 

PRINT NS;B 

Fofiaim ; 

Affecte la valeur d’unc expression a line variable. 

Explication : 



'var pcut Sire une variable mimeriQue, une variable alphanumeric 
on un element de tableau. 

'expres' est soil une variable (de meme type que 'var’)* soil un 
nombre, une chaine de ociracteres, une formule de ealeui, soit 
encore une fonction. 

Dans cette instruction, le tame 'L£T est optionnel. Ainsi, LET A 
= B est identique ft A = B. 

11 faut noter que le type de ’var’ el le type de 'expres’ doivent 
St re identiques (si les types ne coincident pas entre eux, le 
BASIC Gl’A le signale tors du contrOIe de la syntaxc). 
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BASIC GfA 



INSTRUCTION GRAPIIIQUE LINE 

Syntaxc : 

LINE xO,yO,xl,yl 

Abrev. : 

LI 

Exemph : 

LINE 0,0,639,399 

LINE 639,0,0*399 

Fond ion : 

Relie les points <xQ,yO) et (xl.yl) par une droite. 

Explication : 



l/origine des axes est le coin superieur gauche de l’ecran. xO et 
yO sont les coordonnees du point de depart, xl et yl les 
coordonnees du point d’arrivee. 

* 

L’exemple ci-dessus trace les deux diagonaics de Pccran. 

Celle instruction est identique a I 1 instruction DRAW xO,y0 TO 

xl,yl. 

(voir aussi DEFL1NE). 
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f 

INSTRUCTION I/O LINE INPUT 

LINE INPUT # 

Syntax* : 

LINE INPUT ['"texte";(,)]vatf,var...] 

LINE INPUT #n,var[,var...] 

Abrev. : 

LI INPUT 

Exempts : 

LINE INPUT KS 

UNE INPUT AS.BS.CS 

PRINT AT( 15,15); 

LINE INPUT “Votre nom*;NS 

LINE INPUT "Vine et pays: “,V$,P$ 

Fonction ; 

Permet la saisie d’une chaine de caracteres 
pendant 1'exccution du programme. 

■ # 


Explication : 



lexte' est une chaine de caracteres quelconque qui est affichee & 
Pecran avant I’introduction des donnees. Ce texte doit tou jours 
etre compris entre guillemets. 

* var' est le nom d’une variable chaine de Ctiracteres. 

Quand 1* interpreter tombe sur I* instruct ion LINE INPUT, il 
interrorapt I’execution du programme et Pulilisalcur a la 
possibilite d’entrer une chaine de caracteres. Avec V instruction 
LINE INPUT #n, la lecture a lieu sur le canal de donnees numero n. 
A I*inverse de ce qui se passe a vec l 1 instruct ion INPUT, une 
virgule n’est pas consid&rue com me un separateur : die est prise 
en compte dans la chaine lue. lei, le scui separateur possible est 
<RETURN>. Cette difference mise is part, Pinstruction LINE 
INPUT travaille de la meme fa$on que Pinstruction INPUT 
(voir INPUT). 
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BASIC CfA 


INSTRUCTION I/O USX 


Syntaxe : 
Ah rev. : 
Exemple ; 


F(motion : 


LIST "nomfich" 

LIS 

PRINT "Sauvegnrder sous formal ASCII' 1 
LIST ' PROCR" 

PRINT '‘Listing sur recran* 1 
LIST ,l - 

Sauvegarde le programme en memoire principale 
sur disquette, ou liste le programme sur I'ccian. 


Explication : 

'ntmffich* cst Ic nom dc fichier sous Icquel le programme doit etre 
sauvegarde. 


Ce nom peui etre precede de toutes les specifications possibles 
liees a la hierarchic des fichiers (\) (voir par ex. DIR). 


Si ’nomfich* est la clialnc de caracteres vide, le listing du 
programme est affiche a Pecran, Dans tons les autres cas, 
I*instruction LIST est identique a I’option SAVE,A du menu de 
Pediteur. 


Les programmes, qui sont inserts dens d’autres programmes & Paide 
de T instruct ion MERGE, doivent avoir ete prealablement sauvegardes 
avec sous la forme d’un fichier ASCI! avec LIST. 


Si aucune extension n’est prescnte, le BASIC Gf A ajoute 
automatiquement le suffixe ,LST . 

Les guillemets qui entourent ’nomfich’ son! automat iquement mis en 
place, s’ils n’ont pas ete entres. 
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INSTRUCTION I/O IXIST 

Syntaxe ; 

LLIST 

Ah rev, ; 

LL 

Example : 

PRINT "Listing sur imprimante" 

LLIST 

Fmction : 

Tmprime tin listing du programme qui sc 
trouve en mcmoire prlncipale. 

Explication : 



l a sortie du listing du programme sur imprimante ne pout elrc 
arrfitce qu*en debranchant I’imprimante. 30 seconds environ 
s*ceoulent avail! que le programme ne reprcnne la main ct que Ton 
puisse a nouveau y travailler. 
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INSTRUCTION I/O LOAD 

Syataxe : 

LOAD *'specfich M 

Abrev, ; 

LOA 

Exempte ; 

SAVE "PROGRAMM’ 

LOAD "PRO*" 

Fmctioit .* 

Charge un programme contenu sur fichier 
dans la memoire de travail. 

Explication : 



'specfich* est un tiom de fichicr qui peut contenir diverges 

specifications (voir par ox, DIR). 

#■ 

Si 1e nom de fichicr entre au clavier n*a pas d* extension, ie BASIC 
GfA ajoute automatiquement le so ffixe .BAS , 

De mdme, si Ik guillemets entourant ‘filespec 1 manquent, ils sont 
automatiquemeni mis en place. 
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FONCTION 


LOC 


Syntaxe: LOC([#]n) 

Exempts ; OPEN "0\# I ,"DAT H 

PRINT #1," 1234567" 

SEEK #1,3 
PRINT LOC(#l) 

Effet : Retourne ia valeur du pointeur du fichier 

correspondant au canal n. 

Explication : 

’n’ est une expression entiere entre 0 et 99 qui in clique Ie numcro 
d’un canal de donnfies ouvert avec 1’instruct ion OPEN. 

#■ 

A chaque canal de donnces, i! correspond un pointcur de fichier 
(pointeur d’ecriture ei de lecture), qui pointe sur un certain 
octet dans ie fichier. La fonclion LOC retourne la valeur dc ce 
pointeur, e’est-i-dire la distance (calculee en norabre d’oetets) du 
pointeur par rapport au debut du fichier. 

Cette instruction peut uniquement 6tre utilisec pour le$ fichicrs 
sur disquette (pas pour CON: LST: etc...). 
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INSTRUCTION DE STRUCTURE LOCAL 

Syntax? : 

LOCAL var[,var...] 

A/mtv. ; 

LOG 

Example : 

A-1000 

PRINT A 

GOSUB Sousprg 

PROCEDURE Sousprg 

LOCAL A 

1=1+1 

A=I 

PRINT A 

IF 1=10 THEN 

ELSE 

* 

GOSUB Sousprg 

END1F 

PRINT A 

RETURN 

Function ; 

Declare Var’ comme variable locale. 

Explication ; 



War peut ctre de n*imporle quel type, smf un tableau. En BASIC 
GfA, on pent declarer des variables locales k lTmirieur de 
procedures (sous-programmes). 

Une variable skufie en-dehors de la procedure, n’est pas affectcc 
par une modification du content) de la variable locale, mime si les 
deux variables ont le mime noni. 

L’excmple ci-dessus demontre bien cette propriety, en appelant 10 
fois la mime procedure de fa<?on recursive. 

{voir aussi GOSUB, PROCEDURE, RETURN). 
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FONCTlON 


LOF 


SytU&xe : LOF(f#]n) 

Exemple : OPEN "0\# 1/ DAT- 

PRINT LOF(#l) 

PRINT #1 ”1234567" 

PRINT LOF(#I) 

Fond ion : Cal cute la taiile du fichier oorrespondant 

au canal numero n, 

Explication : 

V esl unc expression entiere entre 0 et 99 qui correspond au 
numero d’un canal de donnees ouvert k 1’aide de rinsiruction OPEN. 

La fonction LOF(#n) retoume le nombre d’octets que contient le 
fichier correspondant au canal de donnees qumcro n (taiile du 
fichier). 

Pour un fichier qui vient tout juste d’etre ouvert avec OPEN "O", 
on obtient la valeur 0, 

Cette instruction s’utilise uniQuement pour dcs fichiers sur 
disquetle (non pas pour CON: LST: etc...) . 
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FONCTION LOG 

LOGIO 

SyrJuxe : 

LOG(x) 

LOGlO(x) 

Example : 

A=2.7182818285 

PRINT LOG(A) 

PRINT LOG(A / '2) 

PRINT LOGIOOO* 10*10) 

PRINT LOG 10(2.456) 

Function : 

Calcule le logarithme ncperien (LOG) ou 
le logarithme a base 10 (LOGIO). 

Explication : 


#■ 

'x r doit etre 
supcrieure S 0. 

une expression numerique dont la valour est 


LOG{x) calcule le logarithme nepcrien dc x (logarithme de base 
6^2.71828182...). 

LOGlO(x) calcule le logarithms decimal de x (logarilhme de base 

10 ), 
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IONCTION LPOS 

Sytttaxe : 

LPOS(n) 

Exempli : 

FOR 1~ 1 TO 600 

LPRINT "A"; 

TF LPOS(1)=30 THEN 

LPRINT 

ENDIF 

NEXT I 

Fonciim : 

Indiquc la colonne ou se trouve (dans le 
buffer de Pimprimante) la r£te 
d T ecriture de Pimprimante. 

Explication : 

#■ 



Vi' cst up argument muet II pent etre choisi arbitral rement. La 
tonetion retourne la position horizontale de la tete ePecriture, La 
numerotation des colonnes commence ici ft partir de la valeur 0. 

La valeur obtenue ne correspond pas toujours avec la position 
physique reellc oil se trouve la tdte d'ecriturc, car ici com me pour 
TAB, on ne oompte que les carac teres qui sont affichcs par 
Pimprimante. CR, LF et BS tCHR$(13, 10, 8)J sont Pobjet d’un 
iraitement special. 
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INSTRUCTION I/O LPRINT 

Syntaxe : 

LPRINT [expressions!,][;][’]] 

Ahrev. : 

I.HR 

Bxcmpte : 

A$="GfA" 

B=1986 

LPRINT AS 

LPRINT B 

LPRINT A$,B;”GfA" 

LPRINT a$;"”"" ,,,, ;B 

LPRINT USING "###.##",Fl*100 

function : 

Sort des donnees sur 1‘imprimante. 

Explication : 



'expressions' est un nombre queleonque depressions qui doivent 
ctre separees par des virgules, des point-virgules ou des 
apostrophes. Si ces separateurs manquent, un point-virgulc est 
automatiquement mis en place. 

Cette instruction travaille exact ement de la rueme fa$on que 
l'instruction PRINT, a la seule difference qu’on ne peut pas 
utiliser le suffixe AT(x,y) pour une imprimante. 

(voir instructions PRINT et PRINT USING). 
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INSTKUCTION LSET 

Syntax? ' 

LSET var = string 

Abrev, : 

IS 

Exempt? : 

A$= I 'AAAAAAAAA'* 

BS=5PACES$<7) 

CS="GfA" 

LSET AS-CS 

LSET BS^ 1 BASIC GrA 1 * 

PRINT AS;B$ 

Fonctitm ; 

Place la chaine de caractcres ’string' 
dans la chaine de caracteres ’var’, en 
partant de la gauche. 

Explication : 



W est une variable alpha numeriqtic. "siring’ est unc expression 
alphanumerique quelconque. 

La chaine tie carac teres "string" est places en commengant pur hi 
gauche, dans la chaine ’var\ Si la longueur de ’string’ est plus 
petite que cclle de *var\ la partie non utilis^e de ’var’ est 
remptic de blancs. Dans lc cas contraire, la chaine ’string’ est 
tronquee ft droite, 

l .SET est normalement utilise en relation avec FIELD pour la 
creation d’un fichier ft acces direct. Dans ce cas, les donnees 
iiunierlqucs doivent d’abord fetre converges *n chaines dc caracteres 
avec MKIS, MKL$, MKSJ, MKF$ ou MKD$, avant de pouvoir leurs 
appliquer 1’instruction LSET. 

(Voir aussi LSET et RSET). 
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FONCTIOIM 


MAX 


Syntaxe : MAX(express,exprcs...]) 

Exempts: a=17 

b-3 

a$="aaa" 

PRINT MAX(a,b,2*2) 
PRINT MAX(a$,"AAAA") 


Eonctim : Calcule la valeur maximale ou la chaine la 

plus ’grande 1 de la lisle depressions *expres\ 

Explication : 


ex pres 1 est one expression numerique ou alphanumcrique quelconque. 
1'outes les expressions de la lisle doivent appartenir a un et un 
seul ty pe (numerique ou alpha numerique), 

S’il s’agit d’une lisle d’expressions num£rique$, la fometion 
calcule la valeur la plus grande. 

Si ce sont dcs ehaines de caracteres, MAX retourne la chaine la 
plus ’grande’. 


Cette derniere s’obtient en comparant les ehaines avec roperateur 
V (voir chapitre : operateurs de comparaison). 

La fond ion inverse de MAX est MIN. 


- 166 - 










Annexe A 


INSTRUCTION 


MENU 


Syniaxe ; MENU tableauf) 

MENU KILL 
MENU OFF 
MENU n,x 

Ahrev. ; ME 


Exemple ; voir ON MENU GOSUB 

Fond ton : Permet la creation et la modification de 

menus. 

Explication : 


'tableau' est un tableau de chaines de caracteres ft une dimension 
qui contient le tcxtc du menu. 


Le tableau de chaines de caracteres doit £tre compose de la maniere 
suivante : il faut inlroduire suceessivement le litre du menu et 
les differentes options de ce menu deroulant. Apres chaque litre et 
le menu deroulant correspondent, doit figurcr une ehaine vide. La 
derniere option du dernier menu doit Stre suivie de deux chaines 
vides. 11 est par ailleurs INDISPENSABLE que le premier menu 
deroulant soil construit com me suit : litre, ligne d’information, 
ligne separatrice composee de tircts (signes meins), six chaines 
arbitraires (longueur <>0) pour les Desk- accessories. 


Avec Pinstruction MENU tableauO* le menu est affiche et active. 

Avec MENU KILL, on "deconnecte" le menu, cependant que ce dernier 
n’est pas efface, 

Avec MENU OFF, les litres de menus eventudlement repr&entes cn 
inverse video, sont a nouveau affiches 'normalementV ==> 


- 167 - 






BASIC GfA 


INSTRUCTION 


MENU 

suite 


Avee Pinstruction MENU n,x * il est possible de modifier les 
lignes du menu. 

;r’ rcpr&cnte ici le mimdro de la ligne du menu (aiasi qtie 
V indice du tableau correspondant). 

'x ! est tin nombre entier compris entre 0 et 3. 

MENU n t Q efface le crochet situe devant la ligne dc menu, qui a 
etc plac6 avec MENU n,1. 

MENU nj affiche un crochet devant la ligne de menu. Pour 
utiliscr cette instruction & bon escicnt, II devrait tou jours y 
a von au moins un blanc au debut de la ligne. 

MENU n,2 represente une ligne de menu en ecriture claire. II est 
alors impossible de choisir V option correspond ante. 

MENU nj represente une ligne dc menu dans un ecriture norma la 
l.’option correspondante peut a nouveau etre choisie. 

Si une ligne de menu commence avec le sign© ’moins’, il est 
impossible de choisir ccttc option (ccmmc avec MENU n,2). Si Eon 
vcul deconnecter les desk- accessories, on remplace les six dennees 
muettes (dans fexcmple ON MENU GOSUB l ,2,3,4,5,6 ) par six signes 
'moins 1 On peut ega lenient 'deconnecter 1 el 

'rebrancher 1 les desk-accessories avec MENU n,2 et MENU n,3. 

(voir aussi ON MENU GOSUB et la fontion MENU). 
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FONCTION MENU 

Syntax# : 

MENU(n) 

Exempli* : 

voir ON MENU GOSUB 

Fonction ; 

La fonction MENU(n) permet de d’obtenir lcs 
parametres utilises dans 1*instruction ON MENU 
GOSUB. 

Explication : 



Apres ON MENU, fa fonction fournit lcs valeurs qui one etc obtenues 
par Tappel de la fonction VD1 'event multi’ correspondante. 

V est une expression entiere. 

#■ 

Pour n=0, on obtient le oumero de I’optioe du menu dcroulant qui a 
ete {event uellement) clickee. 

Pour n compris entre I et 8. on obtient differents parametres qui 
dependent de Pevenement dcclencheur. 

Pour n=9, on obtient un flag qui indique quel even erne nt s'est 

produit (int_out[0]). 

==> 


- 169 - 










BASIC CfA 


FONCTIOM 


MENU 

suite 


Pour n-IO et n-11, on obtient Ics coordonnecs de la souris au 
moment du declenchemcnt (ln_out[l et 2]). 

Pour n=!2 t on obtient Petal dcs touches dc la souris (in_outl3J). 

Pour n~l3, on obtient f’etat des touches de commutation (<SHIFT>, 
<ALT>, <CONTROL>) du clavier (in_out[4]). 

Pour n=!4, on obtient* dans l 1 octet de poids faiblc, le code Scan, 
et* dans Poctet de poids faible, le code ASCII de la touche 
activee, (in_out[5]). 

Pour on obtient le nombre dc click-souris (in_out[6]). 

* 

Pour on obtient I’adresse de Parbre objet du menu. 

Dans la routine appelee par ON MENU KEY GOSUB, on peut inter- 
roger la touche de declenchemcnt avee : 

IF MENU(I4) AND 255 

KEY$=CHR$(MENU(14)) 

ELSE 

K EY$=MKIS (MENU{ i 4)) 

END1F 

KEYS ©st alors indentique ft la fonction classique INKEYS. 
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FONCTION 


MIDS 


Syntaxe; MID$(string,i[,n]) 

Exempk? ; NS^'BASiC GfA N 

PRINT MTD$(NS,5) 

PRINT M1DS(NS,1,3) 

PRINT MID$(N$,0,3) 

PRINT MID$(N$3,12) 

Function : Exirait une so us chaine de ’string* de 

n caract^res a partir de la it me position. 

Explication : 

'string esi une chaine de caractfcres (constants ou variable). 

#' 

Vt’ cl V sont oormalcmcnt des entiers naturels (constants ou 
variables), (Cependant, on peut ega lenient introduire des nombres 
decimaux. L'editeur ne prendra cn compte que la par tie entiere). 

Si le para met re facultatif V est absent, la fonction extrait tous 
les caraetcres de la chaine ’string’ a partir de la ieme position. 

Si non, on obtient une sous-chaine qui commence par le icme 
caractere et qui comprend n caracteres (les caraetcres blancs sont 
aussi pris en compte). 

Pour i=0, on obtient le me me results! que pour i= 1. 

Si n est superieur au nombre de earacteres dc ’string’ situes a 
droite du ieme caractere (inclus), On obtient Ml DS(string,i). 

Si n est nut, on obtient la chaine vide. ==> 
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INSTRUCTION 


M1DS 


Syntaxe : 

Ml D$ (varch ,nj)=expch 

Exemple : 

AS=" A BCD EFGHIJ KL" 

MIDS(A$, 5 

MJD$(A$ t 3 > f)-"QWER" 

Fane lion : 

Modification d’une parlie d'une chalne de 
caractcres. 

Explication : 



'varch’ est une variable alphanumerique. 


'<T el 'n' des expressions entieres, 

'expch* une expression alpharmmerique. 

L’instruction M!D$ permet de modifier la partie de la chainc 
Varch* commengant au d-ieme caractere de Varch* el comprenant n 
caraetcre (ou, si n est absent, autant de caraeteres que ’expeh* en 
contient). La longueur de la chalne ’varch' n’est en aucun cas 
medifiee. Avec I’exemptc dc programme ci-dessus* on obtient 
"ABQD.„H1JICL", 

(voir aussi RSET et LSET). 
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FONCTION 


MIN 


Syntax? ; Ml N(expr es[,expres...J) 

Exvmple: a=17 

b-3 

a$s H aaa 1> 

PRINT MIN(a,b,2*2) 

PRINT MIN (aSA A A A") 

F miction : Fournit la plus petite valeur nurnerique ou 

la plus ’petite’ chaine tie carac teres dc la lisle 
d’expressions ’expres*. 

Explication ; 

’expres’, est une expression numerique ou alplianumcrique quelconque. 

Toutcs las expressions dc la liste doivent appartenir & un m£me 
type (nurnerique ou aiphanumerique). 

S’il s’afiit d'une liste depressions numeriques, la fonction 
retourne la plus petite valeur. 


Si ee sont dcs expressions alphanumeriques, on obtient la plus 
'petite* chains de caractcres. Cette derniere est calculee en 
comparant les chatnes de caractcres entre dies a 1’aide dc 
I’operateur ’<* (voir chapitre : operateurs de comparison). 


La fonction inverse de MIN est MAX, 


- 173 - 











BASIC GfA 


INSTRUCTION I/O MKDIR 


Synlaxe ; MKDIR w nomrep“ 

Abrev. : MK 


Example : MKDIR "A:\REP1" 

MKDIR "A:\REP1\REP2’ 1 
FILES "A:\* *" 

FILES H A:\REP1\* •" 

Function : Cree de nouveaux repertoires. 


Explication : 

'nomzep* est le nom du repertoire que Ton veut error. Les 
repertoires permettent de creer one hierarchie des ficliiers. 

S’il y a uniquement un nom de repertoire entre les guillemets (sans 
utilisation de \), le nouveau repertoire fera par tie du repertoire 
(directory principal? ou autre repertoire) ou I’on se trouve en ce 
moment (pour changer de repertoire: CHOIR). 

Si on veut placer le nouvau repertoire dans un repertoire bicn 
determine, il faut indiquer en plus le nom et le chemin souhaite. 
Ce dernier commence toujours par le caract&re V» si Ton part du 
repertoire principal. 

Ainsi, rinstruction MKDIR *\KFZ\KAROS\TEILNR" cree un 
repertoire de nom TEILNR qui sera place dans le repertoire 
KAROS du repertoire KFZ du repertoire principal. 

Si Ton veut utiliscr une unite de disquettes precise, il faut 
faire prcceder le nom du repertoire par la lettre corrcspondant au 
lectcur voulu, suivie d*un double-point (ex : "B:Repert"). 
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FONCTION MKIS 

MKLS 

MKS$ 

MKF$ 

MKD$ 

Sytuaxe: 

MKI$(n) 

MKL${n) 

MKS$(n) 

MKFS(n) 

MKD$(n) 

Exemple : 

A=0,1111 

PRINT MKFStA) 

FOR 1=0 TO 5 

# 

Z=PEEK(VARPTR(A)+I) 

PRINT Z,CHRS(Z) 

NEXT 1 

Function : 

Convert it une valeur numerique en une chaine 
de caracteres. 

Explication : 



V est une expression numSrique. Les fonctions convertissent les 
valours de ces expressions numeriques en chalnes de caractcrcs, a 
savoir : 

MKIS converfit un entier sur 16 bits en une chaine de deux 
caracteres. 

MKL$ convertil un entier sur 32 bits en une chaine de quatre 
caractfcrcs. 

MKS$ met V sous Ie format compatible avec le BASIC-Atari (4 


octets). 

s=> 
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BASfC GfA 


FONCnoN mkis 

MKLS 

MKS$ 

MKFS 

MKD$ 

suite 


MKFS met ’n* sous le format speerfique au BASIC GfA (6 octets). 

MKDS met ’n’ sous le format compatible avec le MBA SIC (8 octets). 

Toute don nee numerique que Ton veut stoefcer sur un fielder & acces 
direct doit d’aborri etre convertie en une chaine de ca racier es a 
raide des fonctions prccedentcs. 

L’excmplc montre que le BASIC GfA stocke les nombres en memoire 
interne sous un format de 6 octets, que Ton pent egalenient obtenir 

en utilisant ia fonction MKFS. 

Les fonctions inverses respect ives sont : 

CVI, CVL, CVS, CVF et CVD. 
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INSTRUCTION MONITOR 

Syntaxe ; 

MONITOR [n] 

Abrev r : 

MON 

Exempt? : 

(pas nccessnire). 

Function : 

Appelie un moniteur resident en memoire ou une 
extension de comma ndc. 

Explication : 



Cette instruction permet d’appeler un moniteur ou un debugger, si 
ce dernier a repositionnc le vecteur Illegal-Instruction de telle 
sorte que le MSB (octet de poids fort) du vecteur soil nul avant le 
chargcment du BASIC GfA (cela est par example realise par le 
debbugcr d’Atari). 11 est egalcmcnr possible de transmettrc au 
registre DO.L le parametre facultalif n, et de creer ainsi de 
nouvelles instructions (par ex, MONITOR *aS() pour trier un tableau 
de chaines de earactcres). En outre, on transinet au registre AO 
1'adresse d*une table de pointeurs qui pointe sur la zone memoire 
contenant les huit types de variables (voir TYPE). Ces huit 
pointeurs sont aussi utilises par 1’interprcteur, 


- 177 - 









BASIC C/A 



INSTRUCTION GRAPHIQUE MOUSE 

Syntaxe : 

MOUSE x,y ,2 

Abrew ; 

M 

Example : 

DO 

MOUSE A,B,C 

PRINT AT(1,1);A,B.C 

LOOP 

Fonct ion ; 

Fournit la position (x,y) de la souris et 

Petal k dc ses touches. 

Explication : 



La souris peut etre dcplacee sur toule la surface de Pecran, c’cst 
a dire qu'etle peut attcindrc, cn haute resolution, les points 
(0,0) jusqu’a (639,399). 

L’origifie des coordonnees se trouve dans le coin supericur gauclie 
de I’ecran. 

L’instruction MOUSE retourne la position instantanee de la souris 
ct affecte la composante horizontaie resp. verticale a x resp, y. 

'k' contient Petal instantane des touches de la souris. Plus 
precisement : 0 si aucune touche n’est enfoncee, 1 si la touche 
gauche est enfoncee, 2 si la touche droitc cst enfoncee et 3 si Ics 
deux touches son! enfoncees. 
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FUNCTIONS MOUSEX 

MOUSEY 

MOUSEK 

Syntax? : 

MOUSEX 

MOUSEY 

MOUSEK 

Example : 

DO 

X=MOUSEX 

Y= MOUSEY 

K=MOUSEK 

PRINT AT{1,1 );X,Y,K 

LOOP 

Fond ion : 

Donncnt la position de la souris et Petal 

* 

de ses touches. 

Explication : 



En haute resolution, la position horizontal MOUSEX de la souris 
peut prendre une valeur comprise entre 0 et 639, sa position 
verticals une valeur comprise entre 0 et 399. La position (0,0) se 
trouve dans le coin superieur gauche de l’6cran. 

MOUSEK indique I'etat des touches de la souris* MOUSEK prend la 
valeur 1 ou 2 selon que la touche gauche ou la touche droite est 
cnfoncee. Si les deux touches sent enfoncces, on obtient la valeur 
3. 


- 179 - 







BASIC G/A 



INSTRUCTION ARIT1IMETIQUE MUI. 

Synlaxe : 

MUL var,n 

Ah rev. : 

MU 

Exemple : 

DIM A%(100Q0) 

ARRAYFILL A%(),5 

T=TIMER 

FOR 1=1 TO 10000 

MUL A%(1),5 

NEXT I 

PRINT (TIMER-*T)/200 

T=TIMER 

# 

FOR 1=1 TO 10000 

A%(I)=A%(I)*5 

NEXT I 

PRINT (TIMER-T)/200 

Fane lion : 

Multiplie 1c contenu de ’var" par n. 

Explication : 



’var' doit etre une variable numeriquc on un element d'un tableau 
numerique. 

V est un nombre on egalement une variable numerique. 

MUL varjt est identique ft vnr=var*n, L*avantage de rinstruction 
MUL reside dans la vitesse d'execution (testez Pcxcmplc !). Ainsi, 
1'utilisation de Tinstruction MUL augmente de facon sensible la 
vitesse d’execution deja tres elevee par ailleurs (d’environ 30% 
dans notre exemple). 
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INSTRUCTION I/O 


NAME 


Symaxe ; NAME ’’ancienfich" AS "nouvfich" 

Ah rev. ; NA 


Exemple : OPEN "0\# 1 /'OLD" 

CLOSE #1 
FILES 

name '■old” as "new* 

FILES 


Fmction : Change le nom d’un fichier. 

Explication : 

'ancicftfich' et 'nmvfick' som des noms de fichicrs. Le nom dc 
fichier pent etre precede par son cliemin (le clicmin est rehtif a 
la hierarchie des fichiers (voir par ex. MKDIR)). 

^instruction recherche (eventuellemcm dans le repertoire indique) 
un fichier dont le nom est ’ancienfich’ ct lui donne le nouveau nom 
’nouvfich’- Le contenu du fichier n’est pas modifie par cette 
operation. 


L’instruction NAME ne pent etre utilise® que pour une meme unite de 
disquettes : si ’ancienfich’ se trouve sur I’unite A (en faisant 
preceder le nom par A:), ’nouvfich’ appartiendra aussi a I’unite A. 
Cepcndam, & Pintcricur d’une mGme unite de disquettes, ’nouvfich’ 
peut faire partie de n’importe quel repertoire. Ainsi par exemple, 
Pinstruct ion suivante est permise : 

NAME rt B:CALC" AS "\AUTO\CALCUL 11 

lei, on change le nom du fichier CALC de la directory principale de 
Punite B en "CALCUL", et on transfer® ce fichier dans le 
repertoire AUTO (le fichier CALC n’existe plus). 
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INSTRUCTION NEW 

Syntaxe : 

NEW 

Ah rev. : 

NEW 

Exemple : 

PRINT "Ce programme va s’autodetruire !” 

NEW 

Fmiction : 

Efface le programme cjui se trouve en memoire 
principalc et toutes lcs variables. 

Explication : 

(inutile). 

#■ 
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FONCTION 


OCIS 


Syntaxe ; OCTS(x) 


Example; A=-l 

B=&II22 

PRINT OCTS(A) 

PRINT OCTSC234) 

PRINT OCTS(B) 

Function : Convertit la valeur x en une chaine de caracteres 

qui est la representation octale de x. 

Explication t 


‘x‘ est un nombre enlier compris entre -2147483648 et +2147483647 
dans une representation quclconquc (a savoir Pccriture decimale 
normale (sans prefixe), Pecriture hexadecimale (prefixe St ou &H), 
la representation octale (prefixe &0), la representation binaire 
(prefixe &X)) ou tine variable du meme type. OCT$(x) convertit la 
valeur x en une chaine de caracteres qui est la representation 
octale de x, (c*est*d~dire que la variable B de Pexemple est 
transformce en l, 42’\) 


OCXS, tout comrac BINS et IIEXS, considerent les nombres comme une 
suite de 32 bits et les represented sans signe, k V inverse dc la 
representation decimate normals. 


(voir aussi IIEX$(x) t BIN$(x) et STRS(x)). 
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FONCTION ODD 

Syntaxe : 

ODD(n) 

Exemple ; 

REPEAT 

INPUT "Entrez im nonbrc pair SVP ”;N 

UNTIL NOT ODD(N) 

Fonclhm : 

Per met d’obtenir la pai ite cTun nombre. 

Explication : 



est une expression enfiere, 

ODDfit) rctourne -I si n est impaire, et 0 si n est pair, 
(voir au$$i EVEN). 
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INSTRUCTION DE STRUCTURE ON„.GOSUB 

Syntaxc ; 

ON exp res GOSUB listcproc 

Ah rev, ; 

ON GOSUB 

Example : 

DO 

INPUT A 

ON A COSUB PROUPR02 

LOOP 

PROCEDURE PROI 

PRINT "1<= A <2" 

RETURN 

PROCEDURE PR02 

PRINT "2c= A <3" 

RETURN 

#■ 

Fonelion : 

Branche a telle ou telle procedure, suivant 
la valeur de 'expres\ 

Explication : 



'expres' cst one expression numeiique qudeonque. 

'Hsteproc' cst une liste dc noms dc procedures separes par dcs 

virgulcs. 

Si In valeur dc PexpresKion est superieure ou ggale a t el 

strictement inferieure A 2, on execute la premiere procedure de la 
lisle. Si la valeur de 1'expression est super ieu re ou egjile a 2 et 

strictement inferieure a 3, on execute la deuxieme procedure de la 
liste. Etc... Pour les valeurs auxquelles ne correspond pas dc 

procedure (par ex. 0 ou 3 dans notre exemple)* aucun appel de 
procedure n’est effoctue. 
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INSTRUCTION ON BREAK 

ON BREAK CONT 

ON BREAK GOSUB 

Syntaxe ; 

ON BREAK 

ON BREAK CONT 

ON BREAK GOSUB nom 

Abri’v, ; 

(pas d’abreviation). 

Exempts : 

ON BREAK GOSUB Comments i re 

PRINT "Intcrrompez le programme 1 ' 

REPEAT 

* 

UNTIL MOUSEK 

ON BREAK 

PROCEDURE Commentaire 

PRINT "Interruption impossible” 

RETURN 

Fond ion ; 

Rend les arrets de programme possibles, impos¬ 
sibles, ou provoque* en cas d’interruption de 
programme, le branchement a la procedure ’nom 1 . 

Explication ; 



tunn est un nom de procedure. En temps normal, un programme 
pcut fitre imerrompu par Paction simultance sur k$ touches 
<CONTROL>, <SHIFT> et <ALTERNATE>. ^instruction ON 
BREAK CONT supprimc ccttc possibilite d’intcrromprc un 
programme* I’instruction ON BREAK le permet & nouveau. 

V instruction ’ON BREAK GOSUB nom’ provoque V execution de la 
procedure ’nom’ 1 , dcs que les trois touches precedcntes son! 
enfoncees. 
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INSTRUCTION ON ERROR 

ON ERROR GOSUB 

Syntaxe ; 

ON ERROR 

ON ERROR GOSUB nom 

Ah rev, ; 

(pas d’abreviation). 

Exemplc : 

ON ERROR GOSUB Routinerreur 

PRINT SQR(-l) 

PRINT 3/0 

ON ERROR 

* 

PRINT SQR(-1) 

PROCEDURE Routinerreur 

PRINT "Erreur No : ";ERR 

ON ERROR GOSUB Rout t nor reur 

RESUME NEXT 

RETURN 

Foncium : 

Provoque en eas d'erreur le branchemcnt a 
la routine ’nom 1 . 

Explication : 



'nom est un ncm de procedure, Lorsque survient une erreur, il n’y 
a pas d*iinterruption de programme et de message d f crrcur afficbc* 
mais branchemcnt a la procedure dont le nom est ^nom*. 

L’instruction doit figurer avant 1’apparition de F erreur dans le 
programme, et n’entraire qu’un seul appel de la procedure. SI une 
nouvelle erreur survient, Fintcrpreteur afficlie a nouveau le 
message d 1 erreur corr&pondant. Si on veut qu'il y ait branchemcnt 
pour chaque erreur, il faut ajouter & rIntericur de la routine 
cTerreur, avant le retour au programme principal, Finst ruction *ONf 
ERROR GOSUB nom' afin de reactiver ce processus (voir exemplc). 
Four revenir en mode normal (affichage d'un message d’erreur sans 
branehement), on utilise V instruction ON ERROR. 
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INSTRUCTION ON MENU BUTTON 

Syntax? ; 

ON MENU BUTTON c,m,e GOSUB proc 

Exempk : 

ON MENU BUTTON 8*1.1 GOSUB button 

DO 

ON MENU 

LOOP 

PROCEDURE button 

PRINT MENU( 1 5)’ INombre de clicks 

PRINT MENU( 10)’MENU( 11) lx/y 

IF MENU(I5)=4 !Fin si 

END Iquatrc dicks 

ENDIF 

RETURN 

Fenctim : 

Scrutation dcs clicks-souris. 

Explication : 



'c\ 'm el V sont dcs expressions entieres, 

' proc’ est le nora de la procedure k appeler. 

V=nombre maximal de (C)licks a enregistrer, 

^’-(MJasque (l:gauche, 2:drcit, 3:les deux), 

V=(E)tat (comme % m’) 

Dans Texenriple, on attend au maximum 8 clicks. A chaque serie de 
clicks, le nornbre de clicks et la position de la souris sont 
affiches. Une serie de 4 clicks entraine la fin du programme. 

(voir aussi MENU, ON MENU). 
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INSTRUCTION ON MENU GOSUB 

Syntax? : 

ON MENU GOSUB procl 

ON MENU KEY GOSUB proc2 

ON MENU MESSAGE GOSUB proc3 

ON MENU IBOX a,x,y,l,h GOSUB proe4 

ON MENU OBOX a,x,y,I,h GOSUB proc5 

ON MENU 

Abaev* : 

(pas d’abreviation). 

Exemple : 

DIM MnH(60) 

FOR 1=0 TO SO 

READ MrilS(I) 

EXIT IF Mnl$(I)="** 4 " 

NEXT I 

# 

Mnlt(I)~ r " r 

Mnl $(1+1)=’*’* 

DATA DcBk.Tnalmcnu 

DATA - --- 

DATA i.2,3,4,5,6,"" 

DATA Fichier,Lignel p LiKnc2,Ligiic3 "** 

DATA IleLpfAide l,Aide 2,-’ 

DATA Edit ,Editl .Editf t Edit3,Quit 

DATA *** 

MENU MnlS() 

OPENW 0 

ON MENU GOSUB menu* 

ON MENU 1EOX 1,100,100,200,100 GOSUB inbox 1 

DO 

ON MENU 

LOOP 

PROCEDURE menue 

PRINT 'Choix : *; 

PRINT Mnl$(MENU(0)) 

IF Mnl$(MENU(0))-“Quir 

END ==> 
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INSTRUCTION ON MENU COSUB 

suite 


ENDIF 

RETURN 

PROCEDURE inbox 1 
DEFMOUSE 4 

ON MENU OB OX 1,100,100,200,100 GOSUB cutbcxl 

RETURN 

PROCEDURE outbox 
DEFMOUSE 0 

ON MENU IBOX 1,100,100,200,100 GOSUB inboxl 
RETURN 

Function : ON MENU ... realise le traitement de divers 

evenements (choix de Fopt'ion, etc...). 

#■ 

Expli cation ; 

'procV . 'prvc5' sont les noms des procedures qui doivent 

trailer les evenements correspondants. 

ON MENU GOSUB determine la procedure pour le traitement du 
choix de ropticn. 

ON MENU KEY GOSUB precede de rnfime pour le traitement du 
clavier. 

ON MENU I BOX ... GOSUB ei ON MENU OBOX ... GOSUB 
detenninent les procedures pour le traitement des deplacements 
de la souris par rapport & des rectangles fixes (entree : I BOX, 
sortie : OBOX). En ce qui concerne ces derniers, a’ determine 
lequel des deux rectangles possibles est utilise, ’x’ et V soni 
les coordonnees du sommet superieur gauche, T ei ’K sont la 
largeur et la hauteur. 

ON MENU MESSAGE GOSUB determine la routine pour le traite¬ 
ment des informations du GEM. 

ON MENU seul permet efinterroger ces differents evenements. Cette 
instruction doit done Gtre frequemment executee (par ex. A 

Finterieur d’une boucle). 
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INSTRUCTION I/O OPEN 

SyntQxe ; 

OPEN "mode",[#]n,"nomfich M [,len] 

Abrev. : 

0 

Exemple : 

OPEN "0’ t #irN0M” 

PRINT #1 "BASIC GfA rt 

OPEN T’^VNOM' 

DO 

EXIT IF EOF(#2) 

PRINT INPUT$(l,#2) 

LOOP 

CLOSE 

Fanctim : 

Ouvre un canal de donnSes ou un canal vers 


un fichier sur disquette. 

Explication : 



'mode 1 doit fctre compris entre guillemets* et est Tun des 
caracteres O, I* A* U on R. 

"Q" ouvre un fichier pour y 6crire en le rcinirialisant. 

ouvre un fichier pour le lire. 

"A" permet d'ajouter des donnees & un fichier. 

permet d’acceder a un fichier & la fois en lecture et cn 
ecriture. Dans ce cas, le fichier doit dejjl avoir ete initialise 
avee "O'’, 

"R" concerne tes fichiers a acces direct, 

Vi' est une expression enticre comprise entre 0 et 99 qui determine 
le num6ro sous lequel on pourra acceder au fichier dans la suite du 
programme. ==> 
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INSTRUCTION I/O OPEN 

suite 


'nomfich' est on nom dc fichier. Si Ton veut que le fichier 
appartienne a one unite de disquettes precise, par excmple Funitc 
A, on fera prfeeder le nom du fichier par le prefixe ’A:\ 

On pout figalement mettre a profit la hierarchic dcs fichtcrs. Cest 
ainsi que ’B:\DATE\AGE 1 represente le fichier ’AGE’ du repertoire 
’DATE* sur Funitc de disquettes ’B*. 

'nomfich* peut aussi 6tre : 

"CON;* pour la console 
tl LST: m Oder *PRNF pour Fimprimante 
AUX:" pour Finterface serie 
"MID:" pour ia sortie MIDI 

"VID:" pour la console en mode ’transparent* (les carac teres de 
controle sont transmis et non executes). 

"IKBf pour un acces direct en ecriture au 6301-Keybord-Processor 
(Attcntionf). 

Quand J mmfich f represente un des peripheriques ci-dessus, le mode 
d’acces (O I A U R) n’est pas pris en compte. C’est pourquoi, il 
suffit dans ce cas d*introduce la chalne vide 

7 en* a uniquement un sens pour les fichicrs a acces direct : ’IcrT 
determine la longueur d’un enregistrement. Si ce parametre manque, 
la longueur d’un enregistrement prise par defaut est de 128 octets. 
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INSTRUCTION OPENW 


Syntaxe : 
Abrew : 
Exem p t e : 
Function : 


OPENW nl,x,yj 
O W 

OPENW 2,320,200 
ouvre la fenfctre numero n. 


Explication : 

7 i 1 est une expression numerique, dont la valeur est le numero de 
la fenctre qui doit etre ouverte. 

Les para met res facultatifs x et y sont les coordonnces du point dc 
contact des quatre fenfitres possibles. 


Les qua t res fe net res possibles sont definis comme les quatre 
cadrans d’un systems de coordonnces, le point de contact 
correspondant a I’origine des axes. 


La numerotation des fenStres est la suivante : 

1 I 2 

I 


1 

3 | 4 


Apres OPENW 0, Pecran tout enticr sans toutefois la ligne de menu 
est considers comme une fenfctre. Avec OPENW 0,x,y t on definit 
Poriginc des coordonnces pour les instructions graph iques. 
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INSTRUCTION OPTION 

OPTION BASE 0 
OPTION BASE 1 

Symaxe : 

OPTION BASE 0 

OPTION BASE I 

OPTION nTEXTpJ 

Abiev. : 

OPT 

Exemple : 

OPTION TRAPV +" 

OPTION BASE 1 

DIM A(9) 

FOR i= i TO 9 

A$(I)-STR$(I) 

NEXT I 

Fonction : 

Modification de la base des tableaux ou 
gesikm du compilateur. 

Ex pile ut ion : 



Avec OPTION BASE 0/1, il est possible de modifier la borne 
inferieure des dimensions <Tun tableau (0 ou 1 scion 
r instruction). Certains programmes, la pi opart du temps des sous- 
programmes, peuvent ainsi economiser fa place normalemcnt 
rescrvce aux elements cfindice 0. 

Le BASIC GfA n’autorise que 0 ou I comme borne inferieure. Par 
ail leu rs, OPTION BASE s'applique a tous les tableaux, 

A vec OPTION "TEXT 1 , on peut exdcuter certaines instructions 
machines. 
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INSTRUCTION I/O OUT 


Syntaxe : OUT x,a 

OUT #n,a 

Abrev. : OU 

Exempie : OPEN "0 H ,# 1 ;DAT' 

OUT #1,65 
CLOSE #1 
OPEN T,#l /'DAT" 

PRINT INPUTS(t,#l) 

OUT 2,66 

Function : Transmet un octet dont la valeur est ’a’ a 

un peripherique ou a un fichier, 

* 

Explication ; 

'x' est une expression emiere dont la valeur doit etre comprise 
entre 0 ct 5. 

La signification de x est la suivante ; 

0 pour LST: 

1 pour AUX: 

2 pour CON: 

3 pour MID: 

4 pour 1KB: (attention!) 

ct 5 pour VID: 

'a est une expression entiere dont la valeur devrait 6tre comprise 
entre 0 et 255. Si la valeur introduile est superieure, on ne 
considers que a mod 256, 

OUT xa transmet un octet de valeur V au peripherique repere 

par x. 

OUT #ha transmet un octet de valeur V au fichier correspondant 
au canal n. 


- 195 - 









BASIC Of A 



FONCTION I/O OUT? 

Syntaxe : 

OUT?{n) 

Exempt £ : 

DO 

OUT 0,0 Jest ignore 

EXIT IF OUT?(0) 

PRINT "B ranches rimprimante!!! 11 

LOOP 

Fonction ; 

Per met d’obtcnir Petat (prfcl a recevoir ou non) 
d’un peripherique. 

Explication ; 



>r' est le numero du peripheriquc (0=LST:, l=AUX:, 2=CON: 

(toujpurs prcl), 3**MID:), 

La fonction OUT? rctourne la valeur -1 (ou une valour <> 0), si un 
caractere peut etre envoye an periferique. Dans Pexemple cl- 
dessus, on v6rifie si Fimprimante est prfile* 

L*ins(ruction OUT 0,0 est necessaire si rimprimante n'a pas encore 
ete utilisee ; elle est igmoree par (presqne) routes les 
imprimantes. 

(voir INF?). 
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INSTRUCTION PAUSE 

Syniaxe : 

PAUSE x 

Ahrev. : 

PA 

Example : 

PRINT "Patientez 5 secondes s.v.p !” 

PAUSE 250 

PRINT 11 Et voila 1” 

Fmctim : 

Intcrrompt Pexecuiion du programme pendant 
un certain temps. 

Explication ; 



'x* esc une expression numerique dont la valour comprise enire - 
21474i5 3648 et +2147483647. 

L* instruct ion provoque une pause dans I'execution du program mc > 
dont la duree en seconde est donnee par x/50. 


- 197 - 








BASIC G/A 



INSTRUCTION GRAPHIQUE 

PBOX 

Syntaxe : 

Abrev, ; 

PBOX xO t y0 ,xl ,y I 

PB 

INSTRUCTION GRAPHIQUE 

PCKKCLE 

Syntaxe : 

Abrev . ; 

PC1RCLE x,y,rLphiO,pliil] 

PC 



INSTRUCTION GRAPHIQUE 

PELLIPSE 

Syntaxe : 

* 

Abrev. : 

PELL!PSE x,y*rx,ry[,phiO,phi 1 ] 

PE 



INSTRUCTION GRAPHIQUE 

PRBOX 

Syntaxe : 

Abrev. : 

PRBOX xO.yO.xl ,yl 

PRB 



Explication de cctte page : 

Les instructions de cette page sont tres similaires aux ins¬ 
tructions BOX, CIRCLE, ELLIPSE et RBOX. Ici s les figures sont 
non sculemcnt tracees, mais encore remplics. Lc motif de remplis- 
sage doit avoir etc defini auparavant & 1'aide de rinstruction 
DBFFILL. Vous trouverez plus de precisions dans la description 
des instructions correspondantes. 
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FONCTION PEEK 

DPEEK 

LPEEK 

Symaxe : 

PEEK(x) 

DPEEK (x) 

LPEEK(x) 

Exempk : 

A$-"A* 

D=A RRPTR( AS} 

A=LPEEK(D) 

L*=DPEEK(D+4) 

C=PEEK(A) 

PRINT "ADRESSE.DES",D 

PRINT "ADRESSE" 

PRINT "LONGUEUR",L 

* 

PRINT ’CODE-ASCII"^ 

Effet : 

Donne le contenu de 1,2 ou 4 octets de la 
memoire principal©. 

Explication : 



V est one expression numcriquc qui represente une adresse de la 
memoire principale. 

PEEK(x) renvoie le contenu de Toetet situ£ k Padresse x. 

DPEEK(x) retourne le contcnu de deux octets consecutifs dont les 
adresses respectives sont x et x+L DPEEK convertit le nombre 
blnnirc contcnu dans les 16 bits en un nombre decimal. 


(Exemple: 

si le premier octet vaut 11 et le dcuxlcme 189, Ic 
resultat obtenu est 11*256+189 = 3005.) 


EPEEK(x) est semblable a DPEEK(x), mais se rapporte a 4 octets. ==> 
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FONCTION 


PEEK 

DPEEK 

LPEEK 

suite 


(Exemple: le contenu de Padresse x vaut 8, le contenu de 

Padresse x+1 vaut 45, ie contenu de Padresse x+2 
vaut 156 et le contenu de Padresse x+3 vaut 126, 
LPEEK(x) vaui S*256 A 3+45*2S6 A 2+156*256+126 = 
137206910.) 

Duns rexemple, LPEEK permet d’extraire do descripteur Padresse A 
laquelle est memorisee le contenu de A$. DPEEK retourne la longueur 
de la chaine de car ac teres. Emfin, toujours dans rexemple, PEEK 
donne le code ASCII de la lettre ’A\ 

(voir, A ce sujet Pannexe D lies variables et leur organisation). 
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FUNCTION PI 

Syntaxe : 

PI 

Example : 

INPUT R 

U-2*P1*R 

F=PI*R*R 

PRINT U,F 

Fane lion : 

Retournc la valeur pi. 

Explication : 



PI est le rapport du perimeire d’un cercle sur son diamctre. II 
vaut environ : 

PI=3J4i 5926536... 

L’exemplc calcule !e p^rimfeire cTun cercic et la surface du disque 
correspondant, connaissant son rayon. 
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INSTRUCTION GRAPIUQUE PLOT 


Syntax? ; 

PLOT x,y 

Abrev, : 

PL 

Exemple : 

PLOT 320,200 

OFFLINE 1,6.2,2 

PLOT 30,30 

F one Hon ; 

Place un point sur Pec ran. 

Explication : 



x el v sont les coordonnees du point, I'ongine des coordonnees se 
trouvant dans le coin superieur gauche de Pecran. x reprcsente la 
distance horizontal en pixel (0 jusqu’a 639) par rapport au bord 
gauche de P6eran, y la distance vertieale (0-399) pur rapport au 
hord superieur (ces valeurs sont valables en haute resolution). Le 
premier point de notre exemple est done affiche au milieu de 
Pecran. 

Cette instruction est identlque a {’instruction DRAW x,y, 

tl faut noter qu’il est parfois necessaire de redefinir avec 
DEFL1NE la valeur de la largeur des traits a 1, car si non aucun 
point n’est affiche (il y a cependant une exception : si on a 
ehoisi avec OFFLINE d’arrondir le debut et la fin ties lignes, un 
point sera affiche, dont la taille depend de la largeur des traits 
choisie (voir exemple)). 
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FONCIION POINT 

Syntax? : 

POINT(x,y) 

Exempte : 

PLOT 100,100 

PRINT POINT(99,100) 

PRINT POINT(l00,l00) 

Fonctim : 

Teste si un point est affiche, on donne la valeur 
de sa couleur. 

Explication : 



(x,y) soni les coordonnees d’un point sur Pecran. L’origine des 
coordonnees se trouve dans le coin super ieur gauche de l’ccran. En 
haute ^resolution, le coin inferieur droit a pour coordonnees 
(639399). 

En haute resolution, la fonction POINT rctourne la valeur 1 ou 0, 
scion que le pixel (point graphique) point© est illume 1 ou 
’eleim’ (car, en haute resolution, il n’existe que les deux 
valeurs de couleur 0 et 1). 

Pour les autres resolutions, ia fonction POINT retourne la valeur 
de la couleur (0 4 15 en basse resolution, et 0 & 3 en moyenne 
resolution) du point (x,y).pp 
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INSTRUCTION POKE 

BROKE 

LPOKE 


Syntaxe ; POKE x,n 

DPOKE x,n 
LPOKE x t n 

Abrcv. : PO 

DP 

LP 


Exemple : A$=*A* 

L=ARRPTR(A$) 

DPOKE L+4,4 
Z=VARPTR(A$) 

, LPOKE Z,1111638594 

PRINT A$ 

POKE Z,67 
PRINT AS 

Fmctian : Ecrit 1, 2 ou 4 octets a Padrcsse x de la 

mcmoirc principalc. 

Explication : 


*x' est une expression numeriquc qui indique unc adresse de la 
mcmoire principalc. Pour les instructions DPOKE et LPOKE, x doit 
etre un nombre pair. 

V est unc expression num^rique dont la valeur est comprise entre 
0 et 255 pour POKE, entre 0 et 65535 pour LPOKE et entre 
-2147483648 et +2147483647 pour LPOKE. 


POKE xjt ecrit un octet (avec la valeur n) dans la cellule memoire 
don I Padresse est x. 

DPOKE x,n charge la valeur n dans les deux cellules memoires 
consecutives d’adresses x et x+1. ==> 
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INSTRUCTION POKE 

DPOKE 

LPOKE 

suite 


(Excmple : si n vaut 257, la valeur l est ’pokee’ a la fois & 

faciresse x et a Psdresse x+I, car on a : 
257 - 1*256 + 1) 

LPOKE xjn ccrit la valeur n dans Its qua Ire cellules memo ires 
consecutives dont I’adressc de depart est n. (Ex emple : s’il faut 
poker la valeur 1 dans les quatre cellules memoircs, n dcvra £tre 
egal a 1*256 A 3 + 1*256*2 + 1*256 + I, & savoir 16843009). 

Comme n no pcut pas dejjasser la valeur 2147483647, il faut, pour 
pouvoir poker un nombrc supcrteur a 127 dans la premiere cellule 
memoir c, travailler avec la complementation a 2 . Excmple : LPOKE 
x,-l affecte a toutcs les quatre cellules mOmoires la valeur 255. 

Les Instructions dccrites id sont utilises dans le mode 
ulilisnteur de nricroprocesseur 68000. Cela signifie qu’il est 
impossible d'ecrire dans certaines zones mcmoires protegees (en 
regie genera le, les adresses 0 a 2047 et la zone memoire au dcla de 
8 Moctets). 

Pour pouvoir ecrire 5 ces adresses r6serv6es, il faut appliquer les 
instructions POKE en mode superviscur : SPOKE, SDPOKE et 
SLPOKE. (voir instructions correspondantcs). 

Les instructions inverses de POKE sont les instructions PEEK. 
Ces dernieres travaillent toujours en mode superviseur. 

Dans l 1 exemple* on affecte une nouvelle valeur a la variable A$, & 
faide des instructions POKE (voir a ce sujef 1’annexe D). 
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INSTRUCTION GRAPHIQUE POLYLINE 

POLYFILL 

POLYMARK 

Syntaxe : 

POLYLINE n,X(),Y() [OFFSET X0.Y0] 

POLYFILL n,X(),Y() [OFFSET X0.Y0] 
POLYMARK n,X(),Y() [OFFSET X0.Y01 

Abrcv. : 

POL 

POLYF 

POLYM 

Example : 

DIM X(8), Y(8) 

FOR 1=0 TO 8 

X(l)=320+150*SIN(l*2*PI/8) 

Y(I)=200+150*COS(l*2*Pl/8) 


NEXT I 

DEFFILL 1,2,9 

POLYFILL 9,X0,Y{) 

POLYLINE 9,X(),Y() OFFSET 100,-50 

DEFMARK 1,3,30 

POLYMARK 9,X(),YO OFFSET 150,-30 

Fond ion : 

Trace une ligne brisee passant par n points 
(en remplissanl eventuellement 1’inlericur), 
ou marque les sommets. 

Explication : 



*#T est une expression numeriquc (dont la valeur maximale est 128). 
II indique le nombre de points qui doivent fetre relies par dcs 
droites. Si l’on veut tracer un polygone ferme, il faut introduire 
n+1 points (le dernier Otant idcntiquc an premier), ear POLYLINE 
et POLYFILL sont semblables & DRAW (le$ instructions POLYLINE 
et POLYFILL sent cependant sensiblemcnt plus rapides*. surtoul 
avee des tableaux d’en tiers X%{) et Y%Q). =-> 
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INSTRUCTION GRAFHIQUE POLYLINE 

POLYFILL 

POLYMARK 

suite 


X() el Y() sont dcs veeteurs numeriqucs qui edition nent les 

coordonnees dcs n points dev am Ure relies. II est important de 
noter que le premier point est place dans X(0) et Y(0). 

Si on introduit un OFFSET* la totalite de la figure est dcplac&e de 
XG suivant le sens horizontal et de YO suivant le sens vertical. 

POLYFILL trace une tigne brisee, et en remplit Pinterieur. Le 

premier et le dernier point sont ici relies par une droite. Le 

motif de remplissage dolt auparavant etre defini avcc DEFFILL. 
Cependant, s’il y a des droites qui se coupon!* les parlies 

correspondantes ne sont pas remplies. Comme il est difficile de 
determiner, dans le cas de figures compliquees dont certaines 
lignes se recoupent, quel les sont lea parties qui do i vent £tre 
remplies et cellos qui doivent rester tel quel, il est conseille de 
re voir plus precisement cette partie du programme, 

POLYMARK marque les sommets d’une etoile ou d’un autre symbole, 
que Ton pent deflnir avec DEFMARK. 
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FONCTION 


POS 


Syntaxe: POS(n) 

Exempts : FOR 1=1 TO 600 

PRINT "A"; 

IF POS(1)=30 THEN 
PRINT 
ENDIF 
NEXT I 


Fonctian : Determine la colonne ou se Irouve le curseur. 

Explication : 


V est un argument muet. II peut etre choisi arbitrairement La 
fonerjon relourn© la position horizon tale du curseur. La numero- 
tation des colonnes commence ici a 0, 


Cependant, la valeur obtenue ne correspond pas toujours avec la 
position rcclle ou se trouve le curseur sur Pecran, car seuls lc$ 
caracteres affiches sont comptcs et on ne tient pas compte de PRINT 
AT, des caracteres de control e, etc. 

Seuls CR, LF el BS [CHR$(13 S 10, 8)] ont un traitement special. 

Si une chalne de caracteres d£passant 80 caracteres est afTichee 
& P&ran sans utiliser le retour chariot (exemple PRINT 
SPACES(IOO);), POS retuurnera egalcmcnl une valeur superieure 
k 80 (100 dans Pexemple). 
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INSTRUCTION I/O 


PRINT 
PRINT # 


Syntaxe : 


Abrev. : 


Exempfe : 


PRINT [AT(c,0]lJEcxprest,][;][']] 
PRINT #nf > expres[l;]l’]] 

P (ou '?) 

AS-"OfA" 

B=1986 
PRINT AS’ 

PRINT B, 

PRINT A$,B;''GfA" 

PRINT 

PRINT A$ ! ””B 
PRINT At(77,25);A$; 


Fonctidn : Permet d'af richer des donnees a l’ccran ou 

tie les envoyer sur le canal n. 

Explication : 

‘expres* est un nombre qudeonque d'expressions qui doivent Ctre 
separfees par des virgules, des points-virgules ou des apostrophes. 
S'il n'y a pas de separateur, un point-virgule est automntiquement 
place. 

Si deux expressions sent siparees par un point-virgule, dies sont 
affichees dans la meme ligne, directemcnt Tune & la suite de 
Fautre (cela est cgalement valable pour les nombres, car le BASIC 
GfA ne met aueun caraclere blanc ni devant ni derrtere les 
nombres). 

Si le separateur de deux expressions est une virgule, on a joule a 
la premiere expression suffisammenl de caracteres blancs pour que 
la longueur totale soit divisible par 16 (c*est-a-dire que 

Fexpression apres la virguie commencera ft la colonne 17, ou 33, ou 
49, etc...). 

Si les expressions sent s6par6es par des apostrophes, des 

caracteres blancs sont affichcs en nombre egal (une apostrophe 
produit 1c meme effet que ==> 
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INSTRUCTION I/O 


PRINT 
PRINT # 
suite 


Si la dcrniere expression iTest suivie par aucun des tiois 
caracteres point-virgule, virgule ou apostrophe, un CRLF (retour 
chariot avec passage & la ligne suivante) est envoye (c’est-d-dire 
Que le curseur saute au debut de la ligne suivante). 

Si P instruction se ter mine par un point=virgule, utic virgule Ou 
une apostrophe, le curseur rcstc en place. 

La partie facultative At(c,l) permet d’afficher des donnees k un 
endroit precis de I’ecran. L’ecran comporte en general 25 lignes 
(l) et 80 eolonnes (c), la numerotation commence en haut a gauche 
avec (1,1). En donnant la position <c,l) de Pccran, le curseur est 
positionnc a la colonne et & ia ligne correspondsntes (faites 
attention quand vous voulez afficher quelquc-chose sur Ia dcrniere 
ligne. Pour 6viter que Pec ran ne se decale d’une ligne 
(scrolling), il Faut mettre un point-vjrgule k la fin de 
1'instruction PRLNT (voir rexemple)). 
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INSTRUCTION I/O PRINT USING 


Syniaxe : PRINT USING "formatMistef;] 

PRINT #n,USlNG Tormaf'Jistc* *;] 

Abrew ; P USING 

Exemple : PRINT AT(7,5);USING "###.##\PI* 100 

PRINT USING "AlbYlambda" 


Fond ion : Affiche des nombres et des chatnes de 

caractcrcs dans un format precis. 

Explication : 

format' est une expression alphanumerique qui definit le format de 

l’afflchage (voir plus bas), 

* 

'lisle est une Iiste depressions separces par des virgules. 


Dcscripteurs de format: 


# 

* 

+ 

* 

s$ 


aaaa 

AAAAA 

I 

m 

& 

V-\ 


reserve une place pour un chiffrc 

position du point decimal 

affiehage des signes ’plus’ event uels 

reserve une place pour le signe 'moms’ 

les zeros en tele sont remplaces par des *, 

si non * est identique & 

affiche un S cn tete 

insertion d’une virgule 

(s^paratcur des mi lies) 

affiehage dans le format E+00 

format exponent id E*G00 

le premier caractere d’une chaine est affiche 

toute la chainc est affiehec 

affiche un nombre de caracteres d’une chaine egal 

& la longueur de \..\ (antislashs \ inclus) 

imprime le caractere suivant 
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INSTRUCTION DE STRUCTURE PROCEDURE 


Syntax# : 
Ah rex. : 

Example : 


Fmciion ; 


Explication : 


PROCEDURE nom [(lislevar)] 

PRO 

PRINT "Programme principal" 

GOSUB Ssprg<7) 

PRINT "retour A=";A 
PROCEDURE Ssprg(A) 

PRINT "procedure A=";A 
RETURN 

PRINT "reste inchange" 

Indique le debut d’une procedure (sous-programme). 


’tiartt' est le nom de la procedure. Un nom cle procedure peul 
commcnccr par un chifi're, & I’inverse dcs noms dc variables. Pour 
les aulres caracteres, on peut utiliser : les lettres, les 

chiffres, le soulignS et le point. ’lisiovaE sont des noms de 

variables separes par des virgules. On transmet a ces variables les 
parametres fixes dans ['instruction GOSUB. Les variables de 
'listevar' sont toujours des variables locales dans la procedure. 

Comme le BASIC GfA n’utilisc pas de numeros de lignes, il faut 
reperer le debut d’une procedure (sous-programme). Cest le role de 
cette instruction. 

Un autre avantage de cette instruction, en plus des % r ariables 
locales, est que rinierpreleur peut reconnaitre une procedure et 
eviter ainsi tout tra dement du sous-programme non scuba ite, car 
une procedure n'est executes que si elle est appelee avec 
I’instruction GOSUB. s=> 
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INSTRUCTION DE STRUCTURE PROCEDURE 

suite 


Si Pimcrpreleur rencontre rinstruction ’PROCEDURE* dans lc 
derou lenient normal du programme, II considers cela comme la fin du 
programme. 

Dans Pcxemple, on appelle la procedure dont le nom esc ’Ssprg* et 
on transmet la vnleur 7 & la variable locale A, Dans la procedure, 
on affiche la valeur de A. Pour bien montrer qu’il s*agit d’unc 
variable locale, on precede, apres le retour au programme 
principal, a un nouvel affiehage du contenu de A {valeur : 0}* 

(voir GOSUB, RETURN, LOCAL). 
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INSTRUCTION PUT 


Syntaxe : PUT xO,yO,a$[,mode] 

Abrev. ; PU 


Exemple ; FOR 1=1 TO 5 

CIRCLE 320,200,1*40 

NEXT I 

GET 0,0,320,399,A$ 

PUT 320,0,AS,3 

Fone lion : Affiche a l’ecran le bloc binaire correspondent 

a la chaine de caracteres AS qui a ele lue avec 
GET. 

Explication ; 

* 

(xO.yO) determine le point de depart, c’est-6-dire le sommet 
superieur gauche du bloc a afficher sur Pecran. Ce point 
correspond au sommet du bloc-ecran lu avec V instruction GET. 


’a$' est une variable alphanumerique qui corvtient le bloc-£cran 
sous la forme d’une suite de bits. 


"modF est une expression numerique d’une vaieur comprise entre 0 
ct 15, qui definit dc quelle fagon le bloc correspondant a la 
chaine aS doit etre affiche sur I’ecran ; 


(C-Chalne, 1-Image pr6c£dente) 


0: 

effacer 

8: 

1: 

C AND I 

9: 

2: 

C AND (NOT 1) 

10: 

3: 

C (en overwrite) 

11: 

4: 

(NOT C) AND 1 

12: 

5 : 

1 (inchangc) 

13: 

6 : 

C XOR I 

14: 

7 : 

C OR 1 

15: 


NOT (C OR I) 

NOT (C XOR B) 

NOT 1 (inverse-video) 

C OR (NOT 1) 

NOT C (overwrite en inv.vid.) 
(NOT C) OR I 
NOT (C AND I) 

1 
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INSTRUCTION I/O PUT 


Syntaxe : 
Abrcv. ; 
Example : 
Fauction : 


PUT [#]n[,i] 

PU 

voir FIELD 

Ecrit un enrcgistrement sur un fichier a acccs 
direct. 


Explication : 

n est one expression entlere entre 0 et 99 qui tndiquc le numcro 
d’un canal dc donnees prealablement covert avec 1'instruction OPEN. 


Le pammctre facultatif i est one expression cntiere comprise entre 
I et le nombre d’enregistrements du fichier plus un (max. 65535) et 
correspond au numcro dc Tenregistrcment dans le fichier. Si *i’ 
est absents renregislrement sera place en fin de fichier. 
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INSTRUCTION QUIT 

Sy rtfaxe : 

QUIT 

Abrew ; 

Q 

Exemple : 

PR INI* |f Entrez le mot de passe ?' 

INPUT E$ 

IF ESo’^fA'* THEN 

QUIT 

ENDIF 

Fond ion ; 

Per met de quitter Pinterpreteur. 

Explication : 



Si Finterpreteur rencontre Pinstruction QUIT au cours de 
l’extcution d’un programme, il rend la main au desktop du GEM 

Cette instruction est idemique a rinstruction SYSTEM. 
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FUNCTION RANDOM 

Syntaxe : 

RANDOM(x) 

Example : 

REPEAT 

L=RANDOM(6)+1 

PRINT L 

UNTIL L=3 

Fauction : 

Retourne un nombre entier aleatoire compris entre 0 
(inclus) et x. 

Explication : 



'x* est un nnmbre qudeonque (m6me negatiQ, RAN DOM(x) donne un 
norabre entidr aleatoire compris entre 0 (inclus) ct x (exclus). 
Pour gsiramir one repartition de Laplace (equiprobabilite dc tous 
tes evenements), il faut donner a x unc vateur emiere* 

RANDOM(x)=TRUNC(x*RND) 

L’exempie simule les lances successifs d'un de jusqu'ft ce Qu’on 
obtienne un 3, 
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INSTRUCTION GRAPHIQUE RBOX 

Syntax# : 

RBOX x0,y0,xl,yl 

Abrev. : 

RB 

Exemple : 

RBOX 50,50,590,350 

Fmctian : 

Trace un ’rectangle* dont les coins sont 
arrondis et dont les ’sommcls’ diagonalement 
opposes ont pour coordonnees (x0,y0) et (xl,yl). 

Explication : 



Pour reperer les ’sommets’, on prend pour engine des coordonnces 
le coin superieur gauche. Les sommets ne doivent pas necessairement 
se tcouver a l’inlerieur de P^cran. Dans ce cas, seulc tine partie 
du ’rectangle’ est represents. 

(voir aussi DECLINE). 
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INSTRUCTION 


READ 


Syntaxe: 

READ vaij.var]... 

Abrev. : 

REA 

Example : 

READ P,N$,Z% 

PRINT FN$*Z% 

DATA 75006 t PARIS,6 

Function ; 

Lit les valours con tenues dans une instruction 
DATA et les affectent aux variables *var\ 


Explication : 


‘vaf sent des variables numcriqucs, boolccnnes ou alphanumeriques 
quelconques. Cette instruction ne pent etre utilise© qu’en relation 
avec I 1 instruct ion DATA. 

Lorsque rinterpreteur rencontre dans tin programme rinstruction 
READ pour la premiere fois, il lit la premiere valeur de la 
premi&re lignc-DATA el I'affecte & la (ou & la premiere) variable 
de rinstruction READ. Pour les instructions READ suivantes > on 
traite les donnees de la (des) Iigne(s)-DATA dans Pordre ou elles 
ont cte introduces. 

Deux points sont & noter : 

- Les donnees contcnues dans les lignes-DATA doivent etre du nienie 
type que les variables qui vont conlenir ces valeurs. 

- Le nombre des donnees dans les ligncs-DATA doit etre cgal (ou 
superieur) au nombre des variables Var f qui suivent les 
instructions READ (si ce nombre cst superieur, les donnees 
supplemental res ne sont naturellement pas prises en compte). 

(voir absolumcnt DATA el RESTORE). 
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INSTRUCTION I/O RK1.SF.EK 

Syntaxe : 

RELSEEK [#]n,x 

Abrew : 

REL 

Example : 

OPEN "DAT" 

PRINT # I ,"1234567590" 

SEEK # 1,8 

RELSEEK #1,-5 

PRINT LOC(#l) 

Fonctim : 

Dcplacc le pointeur du fichier, dont le numero 
de canal est n, de x octets. 

Explication : 

* 



*n' est unc expression emicre comprise enlre 0 el 99 qui 
correspond au numero d’un canal de donnees prcalablement ouverl 
avec OPEN. 

'x esl une expression cnticrc dont la valeur est telle que : 
0 <= LOC(#n) + x <= LOF(#n). 

A chaque canal de donnees, correspond un pointcur dc fichier 
(pointeur d*ecriturc ct de lecture) qui est positionne sur un octet 
precis dans le fichier. Avec RELSEEK, on peul deplaccr ce pointcur 
relativcmcnt a sa position precedcnte. Si x est posit if, on deplace 
le pointcur de fichier de x octets vers la fin do fichier. Si x est 
negatif, le deplacement se fail dans le sens oppose, c*est-&«dire 
vers le debut du fielder. 
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INSTRUCTION REM 

Syntaxe ; 

REM texte 

Abrev. : 

R (ou: * ) 

Exempts : 

REM Calcul de I'energie cinctique 

LET E=(M*V*V)/2 

Function : 

Perinet d'inserer des commentaires a V interieur 
du programme. 

Explication ; 



Les com menta ires illustrent un programme et rendent sa 

comprehension plus facile, 

* 

L'instruction REM n'est pas executee, mais le text© 'texts' 
apparait sur le listing. 

Un commentaire peut etre place apres une instruction, en ulilisant 
le caractere separateur "I" : 

DO IBoucle sans fin 

LOOP !Avec rien dedans 

Ces commentaires ne sont bien sOr pas admis apres DATA (et REM). 
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INSTRUCTION DE STRUCTURE REPEAT ...UNTIL 


Syntax? : 

REPEAT 

UNTIL condition 

Abiev. : 

REP 

U 

Example : 

REPEAT 

A=A+1 

PRINT A 

UNTIL A-20 

Sanction : 

Realise une boucle conditionnelle. 

Explication : 



La partie du programme qui se trouve entre REPEAT el UNTIL 
©st execute© plusietirs fcis jusqu’fc ce que la condition soit 
remplie. A rinverse de ^instruction WHILE...WEND, la condition 
n'e$t testee qu*en fin de boucle. Cest pourquol une boucle 
REPEAT...UNTIL est toujours parcourue au moins une fois. 
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INSTRUCTION 


RESERVE 


Syntax? : 
Abiev. : 
Example : 
Fond ion ; 


RESERVE n 
RESE 

(voir EXEC). 

Diminution ou augmentation de la place memo ire 
allouce au BASIC GfA. 


Explication : 

V est une expression numerique tjui determine la nouvelle valeur 
de FRE(O). 


Comme HIMEM est un multiple de 256 octets, FRE(Q) sera 
peut-&re un peu plus grand (de 255 octets au maximum). Cette 
instruction permet d*eviter que le BASIC n’empiete sur des stones 
mtmoires que Eon veut sc reserver pour des programmes en langage 
machine ou des fichiers RSC Cependant, pour reserver des zones 
memoires contenant uniquement des donnees, il est preferable 
d’utiliser 1 + instruction MALLOCQ (adr=GEMDOS{&48,L’nombre) 
pour iviter que ces zones ne soient utilisees par le GEM 
(selections de fichiers, alarmes 

(voir aussi HIMEM, EXEC). 
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INSTRUCTION 


RESTORE 


Syntax# : RESTORE [etiquette] 

Abrew : RES 


Exempte : READ A,8,C.D,E 

RESTORE 
READ F^HJ 
RESTORE Etiq 
READ J,K,L,M 

PRINT A’B'C'D f E"PG’H’I’’J’K’L’M 

DATA 1*2*3 

Etiq: 

DATA 4,5,6*7 

Fmction : Positionne le pointeur-DATA au debut du programme 

ou apres ’etiquette:'. 

Explication ; 


'Etiquette est une suite de caractcres composee dc chiffres, de 
lettres alphabetiques, du souligne et du point. Lc premier 
canactere petit etre un chiffrc, a Pin verse dcs noms dc variables. 


L’instruction RESTORE permet de relire une ou plusieurs lignes- 
DATA. Le pointeur-DATA, qui pointe sur la proehaine donnee 
devant etre lue, est repos it ionne au tout debut (avec RESTORE) 
ou au debut de la ligne-DATA situee apres 'etiquette:' (avec 
RESTORE ’etiquette 1 ). (11 est important de noter que 
Pidentificatcur servant de marque entre les lignes~DATA est 
const itue du nom de Petiquette suivi d’un double point). 

(voir aussi READ ct DATA). 
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INSTRUCTION RESUME 

Syntaxe ; 

RESUME 

RESUME NEXT 

RESUME etiquette 

At rev. : 

RESU 

Exemple : 

voir ON ERROR GOSUB. 

F onct ion : 

Retour d’une procedure d’erreur. 

Explication : 



RESUME execute k nouveau Pinstruction ayant conduit r Perreur, 

RESUME NEXT relance rexeeution du programme a pres I* instruction 
ayant entrame Kerreur. 

'RESUME etiquette' tranche le programme apres 'etiquette:'. Si 
Tetiquette (on dit aussi label) se trouve dans le programme 
principal, hi pile des ’RETURNS 1 est effacce ct les variables 
globales sont restaurees. 

Pour des erreurs FATA Les, scule i'instruction ’RESUME dtiquette' 
est possible* 
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INSTRUCTION DE STRUCTURE RETURN 

Sy til axe : 

RETURN 

Ahrev- ; 

RET 

Example : 

PRINT "Programme principal' 1 

GOSUB Ssprg 

PRINT "De rctour 1 * 

PROCEDURE Ssprg 

PRINT "Procedure" 

RETURN 

Fonclkm : 

Indiquc la fin <Tun sous-programme (procedure). 

Explication : 



* 

Lorsque l 1 interpreter rencontre Pinstruction RETURN a 
Pintcrteur d’unc procedure (sous-pr ogr amme), le traitement de la 
procedure est termine et le programme sc branche apr&s V ins¬ 
truction GOSUB ayant appele la procedure. 

Les variables locales sont alors effacees. 

(voir GOSUB, PROCEDURE, LOCAL). 
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FONCTION 


RIGHTS 


Symaxe: RIGHT$(slring|*n]) 

Exempt* : N$=” BASIC GfA" 

PRINT RIGHTS(NS) 

PRINT RIGHT$(N$,5) 

PRINT RIGHT$(N$,I2) 

Fonction : Extra it le dernier ou lea n derniers caracteres 

(de droite) de la chain e ’string’. 

Explic ation ; 

'siring est une chaine de caracteres ou une variable de ce type. 

n est normalement un nombre enlier ou une variable entiere 
(cependant, il est possible de donner a n une valcur dccimale. 
Seule sa partie entiere sera prise en compte par l’editeur). 

Si le parametre facultatif n est absent* la fonction retour nc le 
dernier caractcrc de la chaine ’string*. 

Si non , la fonction exlrait la sous-chatne compose© des n derniers 
caracteres (de droite) de ’string’ (les caracteres blancs sent pris 
en compte). Si n est superieur au nombre total de caracteres 
formant la chaine ’string’, on obtient la chaine ’string* elle- 
m£me. Si n-0, on obtient la chaine vide. 
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BASIC G/A 


INSTRUCTION I/O RMDIR 


Syntaxe : RMDIR "nomrep" 

Abrev. ; RM 


Exempfa : MKDIR "A:REF' 

FILES "A:**" 

RMDIR "A:REP" 

FILES "A:*.*" 

Fonction : Detruit le repertoire ’nomrep*, & condition qu’il 

soil vide. 


Explication : 

fwmtjcp’ est le nom du repertoire qu’on vent detruire, Ce nom peut 
contenir toutes Ie$ specifications relatives & l’organisation 
hieraichique des fichiers (\): 


Si ’nomrep’ est si implement un nom de repertoire (non precede du 
caractere \), il doit apparlenir au repertoire (principal ou non) 
ou Eon se trouve (pour changer de repertoire, utiliser Cl 1 DIR). 

Si Ton veut detruire un repertoire qui appartient a un repertoire 
precis, it faut preciser le chemin. Ce cheinin commence toujours 
par 1c caractere \, si I’on part de la directory (repertoire) 
principale. Aittsi par exemple, I* instruction RMDIR 
”\KFZ\PARTNR" a pour effet de detruire le repertoire FARTNR 
appanenant au repertoire KFZ de la directory principals (on ne 
peut evidemment detruire un repertoire qua s’il existe 
(voir EXIST) et s’ii ne contient aucun fiehier). 

Si I’on choisit une unite de disquslte differente de l’unite prise 
par d£faut, il faut fa ire preccder le nom du repertoire par la 
lettre correspondant au lecteur, suivi d’un double-point (ex : 

’B:REF). 


-228 - 










Annexe A 


FONCTIGN 


RND 


Syniaxe : RND[(x)] 

Exempts ; FOR I-1 TO 20 

PRINT RND 
NEXT I 

Fauction : Retourne un nombre aleatoire entre 0 et 1. 

Explication : 

Le parametre facullatif (x) n'est pas pris en comptc. RND rctournc 
un nombre aleatoire entre 0 (inclus) et 1 (exclus). 

En utjlisam la formule : 

Z=INT(RND*n)+l * 

on obtient un nombre entier aleatoire compris entre 1 et n (tous 
les deux inclus). 

(voir RANDOM). 
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BASIC C/A 


INSTRUCTION 


RSET 


Syntaxe : 


ESET vai=£tring 


Abiev. ; 


RS 


Example : 


AS="AAAAAAAAA" 

B$=SPACE$(7) 

e$="GfA" 

RSET AS=CS 
RSET BS“"BASiC GfA" 
PRINT AS 
PRINT BS 


Fone t ion : 


Place la chaine de caracteres ’string* 
dans la partie droite de la chaine *var*. 


Explication : 


'var est une variable alphanumerique. 


string' est une expression alphanumerique quclconquc. 


La chaine de caracteres 'string* est placee dans la chaine ’var*, 
Foperation s’effcctuant par la droite. Si la longueur de ’string* 
est inferieur a celle de ’var*, la partie de ’var* qui n’a pas ele 
touchee est remplie de caracteres blancs, Dans le cm contrairc, 
’string’ est tronque a droite. 


RSET est normalement utilise en liaison avee 1*instruction FIELD 
pour la creation d’un fichier & acces direct. Dans ce cas, les 
donnees numeriques doivent fitre convert les en chaines de caracteres 
avec MKI$, MKL$, MKS$, MKF$ ou MKDS, avant de pouvoir leurs 
appliquer [’instruction RSET. 


(voir aussi LSET), 
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INSTRUCTION RUN 

Syntax? : 

RUN 

Abrev . ; 

RU 

Example : 

PRINT ‘'Appuvez sur une touche !" 

IF INPUT$( 1 )=V THEN 

END 

ELSE 

RUN 

BN DIF 

Function : 

Lance Pexecution du programme. 

Explication ; 



L’instruction RUN execute le programme a partir de la premiere 
ligne de programme. 
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INSTRUCTION I/O SAVE 

PSAVE 


Syttiaxe : SAVE "nomfich” 

PSAVE "nomfich' 1 


Abrew : SA 

PS 


Example : SAVE *A:\PROG" 

FILES 

Function : Sauvegarde un programme sur disquette {avec 

autostart pour PSAVE). 

Explication : 

#■ 

'nomfich' est le norn du programme. 


Si on veut sauvegardcr le programme sur une unite de disquette 
determines, par example l'unite A, on utillsera le prefixe ’A:\ 
"nomfich’ pent egalemcnt contenir toutes les specifications 
relatives a Forganisation hierarch ique des fichicrs. 

Exemplc : Finstruction SAVE "B:\PROGR\TESl" signifie que le 
programme TEST.BAS va etre sauvegarde sur la disquette dc Funite B 
dans le repertoire PROGR- (si aucune extension n’est don nee, le 
BASIC GfA ajoute automatiquement le suffixe .BAS). 


Lors du chargement en memoire principals les programmes qui 
ont 6te sauvegardes avec PSAVE ne som pas listes mats son! 
automat iquemenr lances. 


Attention ! $i la disquette ccntient un prog ram me de me me uom, 
Pandemic version cst cffacfcc availf dc sauvcgnrder la nouvdle. 

Si les guillemets qui entourent * nomfich’ manquent, ils sont 
automatiquement mis en place* 
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INSTRUCTION I/O SEEK 


Syntax? : 
Abrcv. ; 
Exempt# .* 


Function ; 

* 

Explication : 

est une expression entiere comprise entre 0 et 99 qui se 
rapporte an numero d’un canal de donnees ouvert prealablement avec 
OPEN, 

T est une expression entiere dont la valeur doit etre inf encore 
ou egale ft la taiLie (en nonibre d'oetets) du fichier. 

A cJmque canal de donnees est assoeie un pointeur de fichier 
(pointeur dc lecture et d’ecriturc) qui est posit ion ne sur un octet 
precis du fichier, Avec SEEK, on pent placer cc pointeur sur 
n’importe quel octet du fichier. Plus precisement, si i est 
positif» on place le pointeur sur le ieme octet en partant du debut 
du fichier. Si i est negatif, on compte les octets en partant de la 
fin du fichier. 


SEEK [#]n,t 
SEE 

OPEN "O’^l^DATr 1 
OPEN h O",#2;'DAT2" 

PRINT #1 ,-I234S67*' 

PRINT #2, M ABCDEF' 

SEEK #1,3 
SEEK #2,5 

PRINT LOC(# 1 ),LOC(#2) 

Positionne le pointeur de fichier sur le 
ieme octet du fichier correspondent au canal n, 
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BASIC G/A 


INSTRUCTION GRAPHIQUE SETCOLOR 


Svntaxe : SETCOLOR i,r,v,b ou 

SETCOLOR i,n 


Ahrev. ; SE 


Example : SETCOLOR 0,0,0,0 

FOR i=1 TO 30000 
NEXT I 

SETCOLOR 0,1911 

Emelian : Fixe les parts du rouge, du vert et du bleu 

dans le regislre de couteur numero L 

Explication : 

Suivnnt la resolution graphique choisie, on dispose d*un nombre, 
plus ou moins grand, de registres de couleur (registres 0 & 15 en 
basse resolution, registres 0 a 3 en moyenne resolution, registres 
0 et 1 en haute resolution). 


7 est le numero du registre, V\V et 'h ' sent les parts des 
couleurs rouge, verle et bieuc (tou jours comprises entre 0 et 7). 

Une autre possibility pour definir une couleur est d’utiliser la 
valeur V ealculee de la fa^on suivante: n = r*256 + v*I6 + b, 

En haute resolution, les seules instructions efficaces son! 
SETCOLOR 0.0 el SETCOLOR OJ (si malgre tout on doime une 
autre valeur a n, les valeurs pa ires de n aurom le memo effet 
quo n=0 et tes valeurs impaires le mfeme effet que n=l). 
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INSTRUCTION SETTIME 

Syntaxe : 

SETTIME timcslring,dalcstring 

Abrcv, : 

SETT 

Exemp le : 

PRINT TIMES,DATES 

SETTIME "15:30:11 ","29.6.1986" 

PRINT TIMES,DATES 

Effet : 

Met en place fheure et la date. 

Explication : 



litnestring’ est unc expression alphanumerique qui conticnt 
Pheure, 

#■ 

f time$iring f est compose des valeurs ’h cures, minutes et secondes' 
separecs par des double-points. Comme chacun des trois termes 
neeessite deux caracteres, les double-points peuvem disparaitre. 
La donnee des secondes est egulement facultative, de telle sorte 
que "1030", par exemple, est identique & "10:30:00". 

'dalestring 7 est une expression alphanumerique indiquant la dale. 
Hilo doit toujours con ten ir : le jour, le raois ct Panncc separes 
entre eux par des points. Pour les annees entre 1980 et 2079, les 
deux premiers chiffres sont facultatifs. 

Si !'It cure et la date sont donnees sous un format incorrect, elles 
ne sent pas modifies par la suite. 
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BASIC GfA 


INSTRUCTION GRAPIIIQUR SGET 


Sytuaxe : 
Abrev. ; 
Example : 


SGET var 
SG 

SGET SCREEN I $ 
FOR 1=1 TO 100 
PRINT V 
NEXT I 

SGET SCREEN2$ 
DO 

SPUT SCREEN 1$ 
SPUT SCREEN2S 
LOOP 


Fonction : 


Lecture rapide dc la memoire-ecran dam une chaine 
dc carat teres. 


Ex plica tioii ; 

War 1 est une variable alphanumerique (variable chaine de 
caracteres). Avec SGET, la totalite de la memoire-ecran (32000 
octets) est copiee dans *var’ (avec un BMOVE). Cede instruction 
est encore un pcu plus rapide que GET 0,0,xm,ym,A$ et ne depend pas 
de la resolution graphique choisie* Dans Fexemple, on copie le 
conienu de la memoire-ecran dans une variable alphanumerique, on 
affiche ensuiie quelques nombres pour realiser une nouvelle 
sauvegarde de la memoire-ecran dans une deuxieme variable* et pour 
1'inir on affiche altcrnativement Fune et 1'autre variables, ce qui 
a pour effet de fair© scintiller Fecran. 


(voir atissi SPUT, GET, PUT et BMOVE). 
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FONCTION SCN 

Syntax? ; 

SGN(x) 

Example : 

INPUT A 

B=SGN(A)*A 

PRINT B 

Fonction ; 

Teste si x est posit if, negatif ou nul. 

Explication : 



V est une expression numcrique quetconque. 

SCN(x) est la fonction mathematique Signe. 

* 

Elle retourne, scion le cas, *a valeur -l, 0 ou k £i savoir : 

0 , si x-0 

+ 1 4 si x>0 

-I , si x<0 

L’cxemplc simule la fonction mathematique valeur absolue 
(voir ADS). 
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BASfC G/A 



INSTRUCTION GRAPHIQUE SHOWM 

Syntaxe : 

SHOWM 

Abrew : 

SH 

Exemple : 

SHOWM 

DO 

PLOT MOUSEX,MOUSEY 

LOOP 

Fonctim : 

Mise en place du curseur de la souris. 

Explication : 



A pres une hardcopy ou un IUDEM, le curseur de la souris disparait 
de Peer an. 

Cette instruction permet de faire reapparaitre la souris (aprds une 
hardcopy, la souris ne redevient visible qu’apres P avoir 
deplacer). Apres un appel au VDI ou d'autres operations, la souris 
disparait a nouveau et redevient visible apres SHOWM ou apres 
Pavoir deplace, L 5 exempte permet de dessiner avec une souris 
visible. 

(voir HIDEM). 


-238 - 







Annexe A 



FONCTION SIN 

Synmxe: 

SIN(x) 

Exemple : 

1) INPUT RAD 

PRINT SIN(RAD) 

INPUT DEGRE 

PRINT $IN{ DEGRE* PI/1 SO) 

2) PLOT 320,200 

FOR 1= I TO 5400 

X=I/36*COS(I*PI/iSO) 

Y=T/36*SIN(I*PI/180) 

DRAW TO 320+X ,200+Y 

NEXT I 

Fonctim : 

Retourne la valcur du sinus de x. 

Explication : 



V est une expression numerique qui indique Tangle (cn radians) 
dont on veut calculer le sinus. 

Si Ton veut introduce un angle en degres, on remplace V par 
’deg^PI/lSO', ou PI esl une fonetion du BASIC GfA qui donne la 
valeur de la constante universelle pi. 

Le premier exemple calcule te sinus d*un angle donne en radians, 
puis le sinus d’un angle donne en degres. 

Le deuxieme exemple dcssine une spiratc degre par degre. 


-239 - 









BASIC GfA 


INSTRUCTION SOUND 


Symaxe ; 

SOUND canal,volume,note,octavtf,duree] 
SOUN D canal, vol uine,#per iodc( ,durce] 

Abrev. : 

SO 

Example ; 

FOR 1=1 TO 8 

SOUND 1,15,1,1,40 

FOR J=J TO 6 

READ A 

SOUND 1 , 15 ^, 1,20 

NEXT J 

RESTORE 

NEXT I 

DATA 3,5,6,8,10,12 

Effel : 

Genere des notes de musique. 


Explication : 

'canal' est une expression qui peut prendre les trois valeurs I, 2 
et 3 et qui determine lequel dcs trois eanaux-sons possibles va 
etre utilise. 

'volume' est une expression nymerique dont la valeur est comprise 
cnlrc 0 et 15, et indique le volume sonore. 

'note' est une expression pouvant valoir 1 a 12, et correspond a la 
note de musique : 


1 = DO 

7 - FA # 

2 = DO # 

8 - SOL 

3 = RE 

9 » SOL # 

4 = MI b 

10 - LA 

5 = MI 

11 = SI b 

6 = FA 

12 - SI 
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INSTRUCTION SOUND 

suite 


’octave' est une expression donl la valeur est comprise cntre 1 ct 
8, et determine roctave dans laquelle la note 'note' est jouee. Le 
LA du diapason (440 Hz) se trouve dans ia quatricme octave. 

'duree est une expression enti&re, et indique Ie temps en 1/50 
sccondes pendant lequet Ie BASIC GfA interrompt ie programme avant 
d’exccuter i'instruction suivante. 

Une autre possibilite est offerte pour definir la hauteur du son : 
au lieu de donncr la note et roctave, on pent entrer la periode 
’periode' precedce du caractere *#\ La periode est calculee ft 
partir de la frequence conirne suit : 

' Periode = TRUNC( 125000/Frequence + Q.5) 

Le LA du diapason (440 Hz)* P ar exemple, correspond d une periode 
valant 284. Ce son, joue pendant 10 secondes, peut done etre genere 
de deux manieres differentes : 

SOUND 1,15,10,4,500 
SOUND l ,15,#284,500 

Dans r exemple, un morceau de musique est joue sur les 8 octave, 
(voir aussl WAVE). 
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SASIC G/A 



FONCTION SPACES 

Symaxe : 

SPACES(x) 

Example : 

FOR 1=0 TO 20 

PRINT SPACES(I),I 

NEXT I 

Fauction : 

Difinit une chaSne de caracteres composee 
de x caracteres b lanes. 

Explication : 



' x ' est une expression numerique dont la valeur doit etre comprise 
entre 0 ei 32767. Scol esl pris en compte la partie enticre de x. 

* 

Cette instruction donne le meme resultat que STRINGS(x," "). 
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FONCTION SPC 

Syntax? : 

SPC(n) 

Example : 

PRINT "BASIC';SPC( 10);*'GfA 1 ’ 

PRINT "ici ,, ;SPC(20); f ’la-bas H 

Fonclim : 

Utilise© dans une instruction PRINT, Cette 
fonction al'fiche n caracteres blancs. 

Explication ; 



V est une expression enticre. On ne prend en compte que la valeur 
TRUNC(n MOD 256). 

La function SPC ne pent £tre appliquee qu’en liaison avec 
l 1 instruction PRINT. 
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INSTRUCTION SPOKE 

SDPOKE 

SLPOKE 


Syntaxe : SPOKE x,n 

SDPOKE x,n 
SLPOKE x,n 

Abrew : SP 

SD 

SL 

Exempt#: A$-*A" 

L=ARRPTR(AS) 

SDPOKE L+4,4 
Z-VARPTR(AS) 

SLPOKE Z,ll 11638594 
PRINT AS 
SPOKE Z,67 
PRINT A$ 

Function : Ecrit 1, 2 on 4 octets dans une zone mcmoire 

dont Eadresse de debut est x. 

Explication : 

V est une expression numerique qui indique une adresse de la 
memoire principale. Pour les instructions SDPOKE et SLPOKE, x 
doit ctrc un nombre pair. 

V est une expression numerique dont la valeur varie entre 
0 et 255 pour SPOKE, entre 0 et 65535 pour SDPOKE, et entre 
-2147483648 et +2147483647 pour SLPOKE. 


Ces instructions travaillent dans le mode superviseur du 

microprocesseur 68000, c’est-6-dire qu'on peut aussi nccedcr aux 
zone-memoires protegees. Pour le rcste. ccs instructions oot les 
memos fonctions que les instructions POKE qui travaillent en mode 
utilisateur (voir description correspondante). 
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INSTRUCTION GRAPHIQUE SPRITE 

Sytuaxe : 

SPRITE A$[,x,y] 

Abrcv. : 

SPR 

Example : 

AS-MKI$( I )+MKIS( 1 )+MK IS(O) 
AS=A$+MKI$(0)+MKI$(I) 

FOR 1-1 TO 16 

A$=AS+MKI$(0)+MKIS(65535) 

NEXT I 

SPRITE A$ ,20,20 

PAUSE 200 

SPRITE AS 

Fonctim : 

Affiche un sprite defini dans AS a la 
position (x,y) t ou bien V efface. 

* 

Explication : 



’A$ } est une chalne de definition (voir DEFMOUSE). Pour la 
premiere utilisation de SPRITE, cette chaine est composec 
de 74 caractcres (2*(5+2*16)), de la manicrc suivante ; 

AS - MKI$(coord, x du point d’action) 

+ MKI${ coord. y du point diction) 

+ MKI$(0) normal ou MKIS(l) XOR 

+ MKI$(couleur du masque) souvent 0 
+ MKIS(couleur du sprite) souvent 1 
+ R$ {motifs binaires du masque et du sprite) 

A rinverse de DEFMOUSE, les motifs binaires du masque et du 
sprite ne sont pas memorises dans B$ consecutivement, mu is 
alteinativement (voir absolument DEFMOUSE). 

V et y sent des expressions numeriques qui indiquent les 
coordonn^es du point d’action du sprite. Si le mfime sprite est 
ufficlie une deuxieme fois a un autre end roil, le premier sprite est 
efface. Si les para metres facultatifs x et y manquent, le sprite 
d ispa rail totalement de 1’ecran. 
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INSTRUCTION CRAPHIQUE SPUT 

Syntaxe : 

SPUT var 

Abrev. : 

SPU 

Example ; 

(voir SGET). 

Fauction : 

Copie rapide d’une chafne de 32000 caracteres 
dans la mcmoire-gcran. 

Explication : 



’vat’ est une variable alphanumcrique. SPLIT copie (4 I’aide de 
BMOVE) la zone memoire de 32000 octets, qui commence 4 
l'adrcsse de de la variable 'var'» dans la memoire-ecran. 

(voir ausst SGET, PUT, GET ct BMOVE). 
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FONCTION 


SQR 


Syniaxe: SQR(x) 

Exemple : INPUT X 

INPUT Y 

DISTANCE = SQR(X*X+Y*Y) 

PRINT DISTANCE 

Function : Calcule la racine carrfie de x. 

Explication : 

’x' est one expression numerique dont la valeur doit etre 
super ieure ou egale a 0, 

SQR(x) calcule la racine carree de x. 

Dans I’exemple ci-dess us, on calcule la distance d'un point de 
coordonnees (X,Y) par rapport au point origine. 

Si on veut calculcr la racine n-ieme d*un nombre avec n<>2 
(par cx. la racine troisidme), il faut se servir de la formule 
mathematique suivante : 

Racine n-ieme de x = x A (l/n) 

Ainsi, la racine iroisicme de 8 est egale & 8 A (l/3) - 2. 
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INSTRUCTION STOP 

Syntaxe : 

STOP 

Abrew ; 

ST 

Exemple : 

OPEN "0\#I/ , DAT M 

STOP 

(Apres execution du programme, entrer en 
mode direct :) 

PRINT # I/BASIC 

Foncttm : 

Arr6te I’execution du programme. 

Explication : 



^instruction STOP petit eire utilisee nSmporte ou dans le 
programme. La difference avee 1*instruction END est double. Tout 
d’abord, STOP ne ferme pas les fichiers (voir exemple). Ensuite, on 
peut reprcndre ^execution du programme la ou il a etc interrompu, 
gr^ce a Pinstruction CONT. 
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FONCTION STR$ 

Synutxe : 

STRS(x) 

Exeniple : 

A=3.SE+56 

B-&022 

PRINT STR$(A) 

PRINT STR$(234) 

PRINT STR$(B) 

Fauction ; 

Convertit la valeur numerique x en une chaine de 
caracteres. 

Explication ; 



'x' eat un nombre dans une representation quelconque (c’est4-dire 
1'ceriture d&dmale normale (sans prefixed I’eeriture hexadecimal© 
(prefixe & ou &H)„ la representation octale (prefixe &O), la 
representation binaire (prefixe &X)) ou une variable numcrlque. 

STR$( x) convert it la valeur x en une chain© de caracteres 
corresponds nt a Pecriturc decimale de x (c*c$t-a-dire que la 
variable B de P example devient la chaine " 18"), 

(voir aussi HEX$(x), OCT$(x) et BINS(x)). 
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BASIC CfA 


FO NOTION 


STRINGS 


Syntaxc : STR ING$(n ^string) ou 

STRlNG$(n,e) 

Exemple ; Z$='A" 

PRINT STRINGS(5 0 ,Z$) 

PRINT STRING$(50,*A ,r ) 

PRINT STRINGS(50,65) 

PRINT STRING$(25,"AA") 

Effet : Fournit une chaine de caracteres qui est constitute 

de n fois la chaine ’string* ou de n fois CIIR$(c). 

Explication : 

est un nombre entre 0 et 32767. 


’siring’ est une expression alplianuin£rique quelconque. 

*c' est une expression numerique qui represente le code ASCII d’un 
caractere. 


Une table de correspoodance entre les caracteres et leurs codes est 
donnec cn annexe C. 

V est transform^ par Tinterpreteur en un nombre entler coinpiis 
entre 0 et 255, d’apres la formule c MOD 256 pour Ics nombres 
posit ifs et la formule (c+2147483648) MOD 256 pour les nombres 
negatifs. 

La fo net ion retoume une chaine de caracteres qui est constitute de 
n fois de la chaine ’string’ ou du caractere CIIR$(c). 

La longueur de la chaine obtenue ne doit pas depasser la valeur 
32767. L’exemple donne dans tous les quatre cas une chaine de 
caracteres composes de 50 fois la lettre ’A’. 
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INSTRUCTION ARITHMETIQUE SUB 


Syntax? ; SUB var,n 


Abrev, : 

S 

Exemple: 

T-TIMER 

FOR I%»l TO 10000 

SUB A%,5 

NEXT 1% 

PRINT (TIMER-T)/200 

A%=0 

T=TIMER 

FOR I%=1 TO 10000 

A%=A%-5 

NEXT 1% 

* 

PRINT (TIMER-T)/200 

Fanctim : 

Soustrait n & la valeur de *var\ 

Explication : 



War' doit 6tre une variable numerique ou un element d’un tableau 
numcrique. 

V est une expression numerique, 

SUB var,n est ldentique a var=var-n. L’a vantage de 1’instruction 
SUB reside dans la vitesse d'execution (testez Pexemple !). Ainsi, 
r utilisation de Tin struct ion SUB augments de fa?on sensible la 
vitesse tTexecution dejti tres elevee par ail lours (presque du 
simple au double dans I'exemple). 
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INSTRUCTION SWAP 

Syntaxe : 

SWAP var 1 ,var2 

Abrev. : 

sw 

Exemple ; 

DIM A(3),B(8) 

ARRAYFILL B(),8 

A$="premier" 

BS="deuxicme" 

SWAP AS.BS 

SWAP A(),B{) 

PRINT AS,B$ 

PRINT A(8),B<2) 

Fonction : 

* 

Explication : 

Echange les contcnus de ’varl’ et de ’var2\ 


Cet ©change pent s’effectucr avec des variables de n’importe quel 
type : varl el var2 pcuvent aussi bien £tre des variables et 
tableaux numeriques que des variables et tableaux alphanumeriques 
on encore des variables et tableaux bo oldens. 

'varV et 'mr2 l doivent apparteuir au meme type. 

S*il s’agit de tableaux, il y a aussi ©change des dimensions (voir 
excmple). 
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INSTRUCTION SYSTEM 

Syttiaxe : 

SYSTEM 

Abrev. ; 

SY 

Example ; 

PRINT "Entree le mot de passe !" 

INPUT E$ 

IF ESo'-GfA* THEN 

SYSTEM 

ENDIF 

Fauction ; 

Perniet de quitter I’interpreteur. 

Explication : 



Si, Iops du deroulement du programme, Pinterpreteur rencontre 
f instruction SYSTEM , il rend la main au Desktop du GEM. 

Cette instruction est identique & QUIT. 
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FONCTION TAB 

Sytttaxe : 

TAB(n) 

Exemple : 

PRINT TABOOrGfA 1 ' 

PRINT SPACE3>(40) 

PRINT TAB^O^BASIC 

Fme Hon ; 

Place une tabulation i la n-ienie colonne. 

Explication : 



V est une expression enticre. Ce pendant, on ne prcnd en compte 
que la valcur TRUNCfn MOD 256)* 

La fonction TAB ne pcut etre apptiquee qu*en liaison avec 

rinstruction PRINT. 

Si le curseur se trouve deja & la cotonne n, TAB a pour effet de 
placer te curseur a la n-ieme colon ne de la Hgne suivante. 
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FONCTION TAN 

Syntax? ; 

TAN(x) 

Example ; 

INPUT RAD 

PRINT TAN(RAD) 

INPUT DEGRE 

PRINT TAN(DEGRE*PI/I80) 

Sanction : 

Calcule la tangente de x. 

Explication : 



V est une expression numerique qui rcprcsente Tangle (cn 
radians) dont on veut calculer la tangente. 

#■ 

Si Ton veut entrer Tangle en dcgres, il faut remplaccr x par 
1 deg*PI/180*, oil PI est une fonetion du BASIC GfA qui retouroe 
une valeur approchee de la constante universeile pi. 

Dans Texemple, on calcule la tangente d’un angle donne en radians, 
puis celle d'un angle donne en degres. 
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BASIC GfA 


INSTRUCTION 


TEXT 


Syntnxe : TEXT x,y^l,]string 

Abrew ; T 


Exempts : DEFTEXT 1,16,0,21 

A$="ABC D" 

TEXT IO,50,A$ 

TEXT 10,350,200, A$ 

TEXT 300,350,-200,"ABC D” 

Fcnction : Affiche un texte, en mode grapluquc, & la 

position (x,y) de Pecran. 

Explication : 

* 

Les earactcr istiques du texte graphique peuvent 6tre defmies avec 

1'instruction DEFTEXT, 


Le texte est affiche a partir de la position (x,y). L*0rigine des 
coordonnces se trouve dans le coin superieur gauche de 1’ecran, Le 
point (x,y) lui-meme correspond au coin infericur gauche de la 
portion de texte. 

Le parametre facultatif 1 pent Etre negatif ou positif, et 
determine la longueur de la zone-6cran qui va contenir le texte. Si 
I est positif, on donne au texte une longueur I, en faisant vatier 
les espaccs entre les caracteres ; si 1 est negatif, on fait varier 
les espaces entre les mots (voir exemple). Si i-0, le texte est 
affiche normalcment 


'string' represente une chaine de caracteres ou une variable 
alphanumerique (voir example). 
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FONCTION TIMES 

Syntaxc : 

TIMES 

Example : 

DEFTEXT 1,16,0,32 

DO 

PRINT AT(1,1);TIME$ 

TEXT 240,180.TIMES 

LOOP 

Fonction : 

Permct d'obtenir 1'heure interne du systeme. 

Explication : 



La fonction retourne unc chaine de caracteres indiquant They re 
interne du syst&me qui e$t contenue dans le tableau de control e. 
Cette chaine a le format suivant : 

hb:mro:ss 

Les secondes augmentent par pas de 2. 
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FONCTION TIMER 

Syntax? : 

TIMER 

Exempt? : 

Ts TIMER 

REPEAT 

Z- I NT ((TIMER-T)/2 )/100 

PRINT AT(38,3);Z” 

UNTIL INKEYSo. 

Fonction : 

Calcule et transmet le teraps ecoule depuis 
la mise en route du systeme, en 1 /200 de secondes* 

Explication : 



L'appel de cette fonction per met cfobtcnir le temps eeoule depuis 
la mise en fonctionncment du systema Cette duree varie par pas de 
1/200 de sceondes. 

L’cxemple simtile tin chronometre affichant les centimes de 
second&s. 
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INSTRUCTION TITLEW 

Syniaxe : 

TITLEW n 7 * litre" 

At rev. ; 

TIT 

Exempte : 

TITLEW 2 "Nouveau TITRE" 

Fonet ion ; 

Permet de donner un (nouveau) litre a la 
fenfitre numero n. 

Explication ; 



*n* cst une expression num6riqoe qui indique le numero de la 
fcnetre dont on veui modifier le titre. 

La chaine de caracteres ’litre dcvient ce nouveau litre. 

Si, avanl OEENW, on execute TITLEW n t *" , on obtienl une fenStre 
sans ligne de titre. Si on veui oblcnir une fenelre normale avec 
une ligne pour le I It re, il faut entrer TIT LEW n," ", 
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INSTRUCTION TROFF 

Syntaxe : 

TROFF 

Ahrzw : 

TROF 

Excmple ; 

TRON 

DO 

PRINT 1 

INC 1 

IF 1=25 

TROFF 

ENDIF 

LOOP 

Fonciion ; 

Supprime la fonction trace qui a ete raise en place 

* 

avcc TRON, 

Explication : 

(pas necessaire). 
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INSTRUCTION TOON 

Syntaxe : 

TRON 

Ah rev. : 

TR 

Exemple ; 

TRON 

DO 

PRINT I 

INC I 

IF 1-25 

TROFF 

ENDIF 

LOOP 

Fonclim : 

Met en place de la fonction trace. 

# 

Explication : 

Affiche la ligne en cours d’execution. 
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CONSTANTS 


TRUE 


Syntax? ; TRUE 

Exempt?: Flag!=TRUE 

Fauction : Constant© -1 

Explication : 

II s’agit uniquement d’une autre maniere d’ecrire (plus lisible) la 
valeur boolecnne ’vrai'. 

En outre, dans la version 2.0 du BASIC GfA, les nombres 0, 1, 2 et 
3 sont memorises dans des cellules-memoires de 1 octet (au lieu de 
7-8 octets). Cest pourquoi les programmes ecrits dans la version i 
dimiipcnt de taille, si on effectue la sequence suivante : 
sauvegarde sur fichier ASCII (avec SAVE.A), NEW, chargement en 
memotre de ce fichier avec MERGE, nouvelle sauvegarde avec SAVE. 
Ccla pcrmet en outre d’effacer les noms de variables du fichier 
SAVE, qui ont ete cre6es lors de Sedition. 
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FONCTION TRUNC 

Syntaxe : 

TRUNC(x) 

Exemple : 

A=3.1415 

PRINT TRUNCXA) 

PRINT TRUNQ-12) 

PRINT TRUNC(-1.99) 

Fan dim : 

Rctourne la partie entiere de x obtenue en 
tronquart la partie apres la virgule. 

Explication : 



'x' est unc expression numcrique quelconque. 

Pour des vateurs positives de x, la fonction est itientique k INT. 
La difference apparait pour les valeurs negatives de x. 

\ 

Exemple : TRUNCC-L99) donne -1, alors que INT(-1.99) donne -2. 

TRUNC (et non pas INT) est le complementaire de FRAC (voir aussi 
FRAC). On a done : 

x = TRUNC(x) + FRAC(x) 

La fonction TRUNC est identique k la fonction FIX. 
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FONCTION TYPE 


Syntax# : TYPE(ptr) 

Exempts : (voir *) 

Fonction : Fournit le type dc la variable qui est pointee, 

Explication : 

'ptr' est unc expression cntiere {normalemcfit de la forme *var). 

TYPE(ptr) indique le type de la variable qui est pointee par r p(r\ 

0=var 

l=var$ 

, 2=var% 

3=var! 

4=var() 

5-varSQ 

6=var%() 

?~varl{) 

En cas d’erreur, la fonction retourne la valeur -1. 

(voir aussi *), 
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FONCTION UPPERS 

Syntaxe : 

UPPERS(string) 

Example : 

AS="basic 11 

PRINT UPPERS(aS) 

PRINT UPPERSCIa") 

PRINT UPPER$(' r GfA") 

Fmction : 

Transformc toutes les lettres minuscules 
(voyelles inflechies incloses) d’une chaine 
de caracteres en lettres majuscules. 

Explication; : 



’ string ' est one expression alphanumerique quelconque. 

Les caracteres qui ne som pas des lettres alpliabetiqucs restent 
inchanges. 
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FONCTION VAL? 

Syntaxe : 

VAL?(x$) 

Excmpte : 

A$="22 DM” 

PRINT VAL?(AS) 

PRINT VAL^O-OE+l^) 

PRINT VAL?riE19 n ) 

PRINT VAL7C&X 10100 IP) 

PRINT VAL?(*AB12:r) 

Fonction : 

Recherche le nombre maximum de caracteres de 
x$ qui represents une valeur numerique. 

Explication ; 



'xS' esi une chaine de caracteres quelconque ou one variable 
alphanumerique. 

La fonction VAL? recherche la plus grande sous-chalne de x$ (en 
partant de la gauche) qui pourrait £trc convert ic avec VAL dans une 
valcur numerique, et renvoie le nombre de caracteres de ceue sous- 
chaine. Pour une chaine de caracteres qui ne represente aucun 
nombre ou pour la chaine vide, on obtient la valeur 0. 

L’exemple donne les resultats 2, 7, 4, 9 el 0. 
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FONCTION YAL? 

Sytit axe ; 

VAL?(xS) 

Example : 

AS s ="22 DM" 

PRINT VAL?(A$) 

PRINT VAL?("I .OE+19") 

PRINT VAL?CTE19 M ) 

PRINT VAL?("&XiQ 10011") 

PRINT VAL?( ,, AB^23 , ■) 

Fonction : 

Recherche le nombre maximum de caracteres de 
x$ qui reprfeente une valcur numcrique. 

Explication : 



\x$' est une chalne dc caracteres quclconque ou une variable 
alphanumeric) tie. 

La fonction VAC? recherche la plus grande sous-chaine de x$ (en 
partant de la gauche) qui pourrait etre con vertie avec VAL dans une 
valcur Burner ique, et renvoie le nombre de caracteres de cette sous- 
chatne. Pour une chaine de caracteres qui ne represeme aucun 
nombre ou pour la chainc vide, on obtiem la valeur 0, 

Uexemple donne les resultats 2, 7, 4 t 9 et 0, 
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FONCTION 


VARPTR 


Syntax? : 
Example : 


Fauction : 


VARPTR(var) 

A%=n 

NS^'GfA' 1 

PRINT VARPTR(A%) 

PRINT I.PEEK(VARPTR(A%)) 
PRINT VARPTR(NS) 

PRINT PEEK( V A RPTR(N$)) 
PRINT PEEK(VARPTR(N$)+1) 
PRINT PEEK(VARPTR(NS)+2) 


Determine 1’adresse (de debut) d'une variable. 


Explication ; 

'var est une variable numerlque, alphanumeric ou booleenne 
Qiielconque, Les variables el lettrs contcnus son! places en memoire 
selon un schema bien precis (voir annexe D : organisation des 
variables). 


VARPTR(var) determine l’adressc du premier octet oil est memorise 
’var*. 


Ainsi, avec 1’instruction VARPTR(A%) tiree de Pexemple, on obtient 
fadresse du premier des quatre octets qui contiennent A%, 

PEEK( VARPTR(NSJ) (egalcment tire de Eexempleci-dessus) renvoie le 
code ASCII du premier caractere de la chaine NS, k savoir 71. 
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FONCTION 


YD 1 BASE 


Syntaxe: VDIBASE 

Exemplc .* (pas n&cessaire). 

Fmction ; Pour s’amuscr cn POKant ! 

Explication ; 

Cette fonction permet cfobtenir Padresse situSe au-delfr du BASIC 
GfA et des variables et tables uti Usees. A partir de cette 
adresse, on trouvc les paramctres-VDl du GEM (type d’ecriture, 
clipping, etc...)* et enfin le programme ecrit en BASIC. Si on 
Peeke ou Poke dans cette zone-memoire, on peut obtenir divers 
effets (egalement de mechants plantages). II vaut done mieux ne 
rien avoir d* important en memoire si Pon veut modifier le GEM sans 
risques. 
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INSTRUCTION VOID 

Syntaxe : 

VOID expression 

Ahrev. : 

VO 

Exemple ; 

VOID FRE(O) 

VOID INP(2) 

Fmction : 

Remplace DUMMY =* (plus rapide). 

Explication : 



Cette instruction execute un calcul sans memoriser le resultat. 
Cela peut sembler inutile mais cette commande est trfe pratique 
pour certaines applications. En particulier, le Garbage-collection 
(FRE(0», 1’attente de la pression cfune touche (INP(2)), I'appel 
de diffe rentes routines, BIOS, XBIOS, GEMDOS et C: qui nc retour - 
nent aucun parametre ou dont on n’utilise pas la valcur-retour- 
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INSTRUCTION 


YSYNC 


Suntaxe: VSYNC 

Abrev. : VS 

Fmction : Synchronisation avec le balayage de Pecran. 


Explication ; 

Cette instruction arr£te Pexecution du programme jusqu’a ce qu’une 
impulsion de synchronisation soil fcmise, c’est-iHiire, jusqu'ft ce 
que Pi mage soil totalement affichee k Pec ran, Cela permet 
d’eviter les parasites ou 1c tremblement de Pirnage lorsque Pon 
fait une animation (par exemple avec GET/PUT). II faut que le 
dessin' se fasse tres rap idem ent ou bien qu’il soit affiche apres 
chaque balayage de ligne. Cela correspond a la fonction 
VOID XBIOS(37), 
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INSTRUCTION WAVE 

Syntaxe : 

WAVE canal*envdoppe,forme,periode4uree 

Abrew : 

WA 

Example : 

SOUND 1,15,1,4,20 

SOUND 2,15,4,4,20 

SOUND 3,15.8,4,20 

WAVE 7,7,0,65535300 

WAVE 0,0 

Fmet ion : 

Permet de combiner les Irois canaux ct de 
generer du bruit. 

Explication : 



r 

'canal. ’envelop pc', 'forme’, ’periode' el ’durce* sont des 

expressions entieres. 

'canal est lvalue bit par bit. Pour combiner les differents 
canaux* il suffit d’additionner les valeurs des bits corres- 


pondantes : 

1 « canal 1 

2 - canal 2 

4 - canal 4 

8 ■ bruits sur canal 1 

16 = bruits sur canal 2 

32 - bruits sur canal 3 


A cela, on pent encore ajouter 256 fois la peri ode du genera teur de 
bruits (0 4 31). 

’ envetoppe* determine* seloe les valeurs des trois premiers bits, 
quels sont les canaux qui utilisent la ccurbe envdoppe 
(ex. : canaux 1 et 3 pour 5-&X10I). ==> 
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INSTRUCTION 


WAVE 

suite 


' fame ' determine la forme de la courbe enveloppe : 

0-3 = lineaire decroissant 

4-7 * lineaire croissant, puis retombant net 

8 - dents de scie decroissantes 

9 - lineaire decroissant (comme 0-3) 

10 = triangle, decroissant au debut 

11 - lineaire decroissant, puis saut a une valcur haute 

12 = dents de scie eroissantes 

13 = lineaire croissant, constant 

14 = triangle, croissant au debut 

15 = lineaire croissant, puis retombant (comme 4-7) 

’periode' determine la periode de la courbe enveloppe (plus la 
periode est grande, plus la courbe enveloppe est allongee). 

’duree’ est le temps, mesuree en 1/50 secondcs, qui doit s’ecouler 
avant d’executer f instruction suivante. 

Les parametres qui se trouvent a la fin de Tinstruction et qui 
restent inchanges peuvent fctre omis. 

WAVE 0.0 deconnecte to us les canaux sonores. 
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INSTRUCTION DE STRUCTURE WHILE... WEND 


Syntaxe : 

WHILE condition 

WEND 

Abrew : 

W 

WE 

Exemple : 

WHILE A<10 

A=A+I 

PRINT A 

WEND 

Fond ion ; 

Met en place une boucle conditionnelle. 

Explication : 



Le bloc d*instructions entre WHILE et WEND est execute 
(eventuellcment plusieurs fois) tant que la condition est verifies. 
Comme on teste la condition au d6but de ^instruction, il est fort 
possible que la boucle ne soil parcourue aucune fois, a ('inverse 
de instruction REPEAT...UNTIL. 
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INSTRUCTION I/O WRITE 

WRITE # 

Syntax e : 

WRITE (expressions]!;] 

WRITE #n[,expressions]!;] 

Abrev. : 

WR 

Exemple : 

OPEN *0'\#l/ r DAT" 

WRITE # l/Dupont 1 YMarceTJ S 

CLOSE #1 

OPEN 'T,#l /DAT- 

INPUT #l,NOM$,PRENOM$,AGE 

PRINT PRENOMS’NOMS’ 

PRINT "est ag<§ de ,r, AGE w an$/ 

CLOSE #1 

Fendian : 

Permet de sauvegardcr, sur un fichier s6quenticl l 
des donnees que Ton peut relire avec INPUT. 

Explication : 



'expressions' eat une lisle ^expressions separees par des 
virgules. 

Contrairement & I 1 instruct ion PRINT, les expressions sont separees 
par le caraelere Y et les chaines de caracteres sont comprises 
enire guillemets. Ce format est identique a celui de I’instruction 

INPUT. 

(voir aussi PRINT). 
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Syntaxe : 
Exempte ; 


Fmetion ; 


INSTRUCTION/FONCTION 


m 


DIM AS(9) 

FOR 1=0 TO 9 
AS(I)=STR$(RND) 

NEXT I 
@D$P 

@SORT(*A$0) 

PRINT ,r Resultat apres un tri" 

@DSP 

PROCEDURE DSP 
FOR i=0 TO 9 
PRINT a$(i) 

NEXT i 
RETURN 

PROCEDURE SORT(p.sarr) tTri x${) 

IF TYPE(p.sarr)o5 

ERROR 47 tparametre doit fitre uric chaine 
ENDIF 

SWAP *p,$arr,x$() Tableau tie travail 
LOCAL i%,j% 

* tri bulle - lent 

FOR i%=DIM?(x$())-2 DOWNTO 0 
FOR j%=0 to i% 

IF X$(j%)>xS(j%+l) 

SWAP XS(j%),X$(j%+I) 

ENDIF 
NEXT j% 

NEXT i% 

SWAP *p.sarr,x$() ! Ret our du tableau 
RETURN 


Passage indirect de variables et dc tableaux. -=> 


-276 - 






Annexe A 


INSTRUCTION/FONCTION 


* 


suite 


Explication : 

L*etoile ne serf pas seulcmenf pour la multiplication, En effei, 
elle dcsigne aussi fadressage indirect pour Ics procedures avec 
rctour dc parametres ou avec transmission de tableaux. 

GOSUB xxx(*a) ne transmei pas le contenu de la variable a. 
mais son adresse. 

Inversemcnt, *ptr=x modifie la variable doni l'adresse est ptr. 
En ce C|ui concerne les tableaux, la seule possibility pour lire 
ou modifier le contenu des differents elements est d*utiliser 
F instruct ion SWAP. Avec TYPEQ, i! est possible de determiner 
de quel type est la variable qui est pointeo. 


plr%=*a 
*ptr%= 17 


!a=l? 


ptr%=*a% 
*ptr%- 17 


fe%-!7 


ptr%=*a$ 

+ plr%=Te$t" 


!a$='Test* 


ptr%= 1|f A() 
swap *ptr%,x() 
dim x{9) 
swap *ptr% s x() 


Idim a(9) 


@sum(*a,7 > 3) 

procedure sum(p.num%,x,y) 


!A=7+3 


*p,num%=x+y 

return 
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INSTRUCTION/FONCTION 


suite 


Important : Les variables locales et variables globales de meme 
nom sont places a la meme adrcssc par Pinterpreteur 
(les contenus des variables globales sont sauvegard6s 
lors de ^apparition de V instruction LOCAL, et a 
nouveau restaures aprfcs ('instruction RETURN). 

Cest pourquoi aucune variable locale ne peut avoir 
le m£me nom qu'un para met re devant etie retournfe. 

Lors d’une mauvaise utilisation des pointcurs, il 
apparait un message d'erretir (voir TYPE). 
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FUNCTION 


Syntaxe ; a^-b 

Example : FOR l—l TO 1 STEP 0.1 

EXIT IF 1—0.5 
NEXT I 
PRINT I 

Fmctim : Operateur de eomparaison : environ egal k. 

Explication : 

" a 1 et ’b‘ sont des expressions numeriques. L’operateur — doit 
6tre applique de la mfime maniere que I’operateur =. Cependant, on 
ne teste pas Pegalite parfaite des deux expressions, mais 
seuiement Tegaiite approchee (28 bits de la mantisse sent 
compares, c-&«d environ 8.5 ch iff res). Dans Pexemple ci-dessus, on 
sort de boucle, bien que la variable I n’atteigne certainement pas 
exactement la valeur 0.5 a cause des erreurs d’arrondi, 

(voir aussi DEFNUM et PRINT USING). 
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ANNEXE B* 


Messages d'erreurs 


MESSAGES D’ERREURS DU BASIC CfA 

0 - Division par zero 

1 -- Dcpasscmcnt de capacity 

2 = Le nombre n’est pas un Integer -2147483648 .. 2147483647 

3 = Le nombre n’est pas un octet 0 255 

4 * Le nombre n’est pas un mot 0 65535 

5 = Racine carree d’un nombre ncgatif impossible 

6 = Logarithme d’un nombre infcricur a zero impossible 

7 s Erreur inconnue 

8 =, Memoire pleine 

9 = Fonction ou instruction impossible 

10 = Chalne trop longue, max 32767 caracteres 

11= Le programme n’est pas en GfA BASIC version 2,0 

12 = Programme trop grand, memoire pleine 

13 « Le fichier programme n’est pas en GfA BASIC 

14 = Champ dimension ne deux fois 

15 = Champ non dimcnsionne 

16 - Index de champ trop grand 

17 m Index de dim trop grand 

18 = Mauvais nombre d’indicess 

19 = Procedure introuvable 

20 ■* Label introuvable 

21 = Pour OPEN, utiliser Tnput, ’O’utput, ’R'andom, ’A’ppend, 

’Update 

22 = Fichier deja ouvert 

23 = Mauvais numero de fichier 

24 - Fichier non ouvert 

25 = Mauvaise saisie, ce n’est pas un nombre 

26 = Fin de fichier alteinte » EOF 

27 = Trop de points pour Polyline/Polyfill, max 128 
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28 = Le champ ne pcut avoir qu’une dimension 

29 = Nombre de points plus grand que le champ 

30 = Merge, ce n’est pas un fichier ASCII 

31 - Merge, ligne trop longue 

32 - ®=> Syntaxe incorrecte, arret du programme 

33 = Marque non definie 

34 = Trop peu de donnees 

35 = Don nee non numerique 

36 = Erreur de syntaxe dans la donnee, utiliser les , " 1 

par paire 

37 = Disquette pleine 

38 = Instruction impossible en mode direct 

39 = Erreur de programmation, GOSUB impossible 

40 * CLEAR n'est pas possible dans tine boucle FOR NEXT ou une 

procedure, 

41 = CONT impossible 

42 - Trop peu de parametres 

43 =* Expression trop complex© 

44 = Fonction indefinie 

45 = Trop de parametres 

46 = Parametre inexact, ce doit Gtre un nombre 

47 = Parametre inexact, ce doit £tre une chain© 

48 = OPEN "R H , enregistrement trop long 

49 » Trop de fichiers “R* (max 10) 

50 = Pas de fichier '’R" 

51 = Seul un champ est possible avec un OPEN "R" 

52 = Champ plus grand que V enregistrement 

53 = Trop de champs (max 19) 

54 - Mauvaise longueur cfenregistrement GET/PUT 

55 * Mauvais numcro d’enregistrement GET/PUT 
60 = Longueur de chain© de SPRITE errone© 

62 = Erreur dans MENU 

63 « Erreur dans RESERVE 

64 = Erreur dans Pointeur 

90 = Erreur dans LOCAL 

91 = Erreur dans FOR 

92 » RESUME (NEXT) impossible, FATAL, FOR ou LOCAL 

100 “ (c) Copyright 1986, GfA Systemtechnik 
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MESSAGES D’ERREURS BQMBE 

102= 2 bombes - erreur Bus, peut-fitre mauvais peek ou poke 

103 = 3 bombes - erreur cPadresse, adresse de mot impaire 

Avec Dpoke, Dpeek, Lpoke ou Lpeek ? 

104 « 4 bombes - execution d’une instruction 68000 

nc convenant pas 

103 = 5 bombes - Division par zero en langage machine 6SOOO 

106 = 6 bombes - exception CHK* interruption du 68000 par 

instruction CHK 

107 = 7 bombes - exeption TRAPV, interruption du 68000 par 

instruction TRAPV 

JOS = 8 bombes - interruption 68000 par execution 
d’une instruction privilegiee 

109 = 9 bombes - exception trace* interruption TR ACE avec 68000 


MESSAGES D’ERREUR DU TQS 

-1 - Erreur generate 

-2 = Drive not Ready* desynchronisation 

-3 = Instruction inconnue 

*4 = Erreur CRC, test de Somme du disque incorrecte 

-5 - Bad request, instruction ne convenant pas 

-6 = Seek error, piste introuvable 

-7 = Unknown media, mauvais bootsector 

-8 = Secteur introuvable 

-9 = Pas de papier 

-JO = Erreur d’ecriture 

-I i = Erreur de lecture 

-12 ® Erreur generate 12 

-13 = Disquette protegee 

-14= Vous avez change de disquette 

-15 a Appareil inconnu 

-16 = Mauvais secteur (verify) 

-17 = Insurer une autre disquette 
-32 = Numcro de fonction incorrect 
-33 = Fichier introuvable 
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-34 = Nom de PATH intrcuvable, cHemin dans directory 

-35 “ Trop de fielders ouverts 

-36 - Acces impossible 

-37 ■ Handle incorrect 

-39 ~ Mdmoire pleine 

-40 = Adresse de bloc memoire incorrecte 

-46 * Num6ro de lecteur incorrect 

-49 = II n T y a pas d’autres donnccs 

-64 = Erreur GEMDOS, seek incorrect 

-65 - Erreur interne de GEMDOS 

-66 ■ Ce n’est pas un fichier binaire 

-67 = Erreur de bloc memoire 


MESSAGE D’ERREUR DE UEDITEUR 


While sans Wend 

Repeat sans Until 

Do sans Loop 

For sans Next 

Wend sans While 

Until sans Repeat 

Loop sans Do 

Next sans For 

If sans End if 

Endif sans If 

Else sans If 

Else satis Endif 

Exit sans boucle 

Procedure sans Return 

Procedure dans boucle 

Procedure definie deux fois 

Return sans procedure 

Marque definie deux fois 

Local autorise seulement dans une procedure 

Local interdit dans une boucle 

Fonction definie deux fois 

Goto dans/vers exterieur une boucle For/Next ou une Procedure 
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Resume dans boucle For-Next 
Resume sans Procedure 
Erreur tie syntax© 

Ligne trop longue 
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ANNEXE C. 


Le code ASCII 


La table suivante eontient les differents codes ASCII ci lours 
caracteres carres pondants. 

Les caracteres dont les cedes ASCII sent compris entre 32 et 255 
peuvent etre affiches a Tecran en utilisant simplemcnt rins¬ 
truction CMRS(x). 

Les caracteres dont les codes sont compris entre 0 et 31 sont des 
caracteres de contrOle. Si on applique l’instruction CHR$ a 
ces caracteres, ceux-ci nc sont non pas affiches mats executes. 

Tous les caracteres peuvent fitie entres au clavier de differentes 
fa$ons: 

* La plupart des caracteres de contrOle en appuyant simultankment 
sur la touche <CONTROL> et une autre touche. 

* Beaucoup de caracteres speciaux en appuyant simultanement 
sur la touche <ALTERNATE> et une autre touche. 

* La plupart des caracteres speciaux en en fondant simultanement 
les touches <CONTROL> et <S>, puis une touche quelconque. (Ce 
i'aisant, on affiche Ic caractere dont le code ASCII est egal au 
code ASCII du caractere entre augments de I2S.) 

* Presque tous les caracteres (sauf les deux caracteres correspon¬ 
dants aux codes 13 cl 0) cn appuyant simultanement sur les touches 
<CONTROL> et <A> puis en entrant le code ASCII du caractere 
ti afficher. 

A ce sujet, rintroduction d'un caractere doit 6tre validce avec 
une touche quelconque, si le code ASCII est plus petit que 26. 
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Table des codes ASCII 


ASCII 



ASCII 


Yaleur 

Caractircs 

Yalcor 

Caractercs 

0 


NUL 

32 


1 

0 

SOH 

33 

i 

* 

2 

0- 

STX 

34 

ii 

3 

0 

ETX 

35 

# 

4 

0 

EOT 

36 

$ 

5 

0 

END 

37 

•A 

6 

ft 

fiCK 

38 

& 

7 

s 

BEL 

33 

1 

8 


BS 

40 

f 

3 

© 

RT 

41 

) 

10 

* 

LF 

42 

* 

11 

/ 

m 

43 

+ 

12 


FF 

44 

1 

13 

\ 

OR 

45 


14 

A 

SO 

46 

f 

15 

h 

SI 

47 

i 

li 

n 

y 

OLE 

48 

e 

17 

t 

i 

001 

43 

l 

18 

? 

002 

50 

2 

13 

3 

003 

51 

3 

20 

8 

DC4 

52 

4 

21 

5 

HflK 

53 

5 

22 

6 

SYN 

54 

6 

23 

n 

< 

ETB 

55 

7 

24 

8 

can 

56 

8 

25 

8 

EM 

57 

3 

26 

a 

SUB 

58 

t 

t 

27 

E s 

ESC 

53 

■ 

1 

28 

c 

FS 

60 

< 

23 

* 

IS 

61 

*p* 

30 

s 

RS 

62 

> 

31 

3f 

US 

63 

7 
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ASCII ASCII 

Valcur Caracteres Valeur 

64 G 96 

65 A 97 

66 8 98 

67 C 99 

68 D 100 

69 E 101 

70 F 102 

71 6 103 

72 H 104 

73 I 105 

74 J 106 

75 K 107 

76 L 108 

77 H 109 

78 N 110 

' 79 0 ill 

80 P 112 

81 0 113 

82 R 114 

83 S 115 

84 T 116 

85 U 117 

86 V 118 

87 M 119 

88 X 120 

89 Y 121 

90 Z 122 

91 [ 123 

92 \ 124 

93 1 125 

94 A 126 

95 _ 127 


Caractires 


a 

b 

c 

d 

c 

f 

9 

h 

i 

J 

k 

1 

n 

n 

o 

p 

Q 

r 

s 

t 

Li 

V 

W 

X 

y 

z 

{ 

! 

> 

IV 

A 
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ASCII ASCII 

Valours CaractSres Valours Caracteres 


128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 
, 143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 


5 

li 

jf 

e 

a 

a 

* i 

a 

a 

a 

C 

A 

a 

c 

e 

i 

i 

i 

fl 

fi 

t 

a* 

ff 

o 

-* 

0 

*- 

0 

■A 

u 

u 

mm 

y 

Q 

■» * 

u 

$ 

£ 

¥ 

f 


160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 


a 

# 

i 

#■ 

o 

y 

U 

A 1 

n 

n/ 

N 

I 

0 

i 


\ 

% 

i 

c 

(V 

a 

o 

Iff 

js 

(E 

(E 

R 

R 

6 

■ » 


T 

0 

© 

1M 
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ASCII 

Valeurs 

Caraetcres 

ASCII 

Valeurs 

Carac teres 

112 

ji 

224 

ce 

113 

a 

225 

f? 

114 

X 

228 

r 

115 

1 

227 

if 

IIS 

a 

228 

i 

117 

1 

221 

<5 

118 

n 

230 

w 

111 

i 

231 

r 

200 

i 

232 

0 

201 

n 

233 

9 

202 

u 

234 

$ 

203 

m 

235 

6 

204 

3 

238 

tf 

205 

*? 

237 

0 

20S 

n 

238 

6 

* 207 

j 

231 

n 

208 

0 

240 

~ 

201 

ii 

241 

+ 

210 

9 

242 

> 

211 

X 

243 

< 

212 

i* 

244 

r 

213 

n 

245 

J 

214 

u 

248 

f 

215 

n 

247 

** 

** 

21S 

l 

248 

O 

217 

1 

241 

m 

218 

i 

250 

• 

211 


251 

C 

220 

1 

252 

n 

221 

§ 

253 

2 

222 

A 

254 

3 

223 

09 

255 
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ANNEXE D. 


Les variables et leur organisation 


Lc GfA BASIC passede quatre types de variables different s : 

Lcs variables sans suffice distinct!f represented des reels & 
virgule flottante qui sent memorises sur 6 octets sous format 
binaire. La precision est de II ehiffres significatifs. Dans la 
representation normale (par ex. 3.546E+I7), l'exposant ne peut pas 
depasser la valeur 154. 

* Les variables avec le suffice % (par example A%) sont des 
variables enticres (Integer), dont la memorisation necessity 4 
octets. Avec ce type de variables, on peut representer des nombres 
en tiers* allant de -2 milliards & +2 milliards environ (-214748364S 
h +2147483647 exactement). 

Lcs variables boolcennes sont suivies du caractere ! et ne 
peuvent prendre que deux valcurs : la valeur 0 (pour Faux) et -1 
(en fail toute valeur differentes de 0 : pour Vrai). Liles 
utilisent deux octets. 

Les variables alphanumeriqucs (variables chaines de caract6res) 
ont pour suffixe le caractere $. De telles variables peuvent 
contcnir au maximum 32767 earacteres, car, dans le descripfeur 
(voir plus bas) d’une variable alphanumcrique, seuls deux octets 
sont utilises pour indiquer la longueur. 

Les noms de variables doivent toujours commencer par une lettre 
alphabetique et peuvent avoir une longueur quelconque (limitee bien 
sur par la faille d'une ligne). 

Four differencler les variables, toute la longueur du nom est prise 
cn comptc. 
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Les caractercs suivant la lettre alphabetique initiate peu vent etre 
des lettres, des chiffres, le souligne on le point. 

Si une instruction d’affectation commence par LET, on pcut mfimc 
utiliser des mots-cles (noms destructions) comme nouns de 
variables. Ainsi, la ligne suivante est tout a fait autarisee : 

LET LET=17. 


En BASIC GfA, il y a done ires peu de mots reserves. 

Gr&ce a rinstruetion VARPTR(var) (pointeur de variables), on peu I 
aeecdcr & 1’adresse en memo ire principale du premier octet de la 
zone-memoire ou le BASIC GFA place le contend de *var\ 

Pour pouvoir memoriser les chatnes de caractercs et les tableaux 
(champs), on utilise on descripteur. 

M 

Le descripteur est stocks sur 6 octets, dont les quatre premiers 
represen tent une adresse. La signification des deux derniers esc 
differente scion qu’il s’agit d’une chaine de caractercs ou d’un 
tableau. 

Examinons done separement les descripteurs de chatnes de caractercs 
et de tableaux. Comme^ons par le plus simple : i'organisation des 
chatnes de caractercs en memoire : 

Avec rinstruetion ARRPTR(var), on obtient l'adresse du premier 
octet du descripteur. Comme nous l’avons deja dit, les quatre 
premiers octets du descripteur iudiquent une adresse. Ccst 
fadressa ou est place le premier caracterc de la chaine. Cette 
adresse est identique a celle que retourne rinstruetion VARPTR. 
Les deux derniers octets du descripteur indique la laille de la 
chaine. A la fin de la chaine memorisce, on trouve, derriere un 
eventual octet de remplissage (place au cas ou la taillc dc la 
chaine est impaire), Padresse de debut du descripteur 
correspondant (on appelle cette adresse ’backtrailer’. 
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II per met d'accclerer sensiblement fexecution do processus appele 
Garbage-Collection (la collects et Feffaccment des zones-memoires 
qui ne sent plus utilis6es)). 

Le programme suivant dev rail permettre de eomprendre encore mieux 
Forganisation des chalnes de caracteres en memoire : 

A$="GfA" 

PRINT ''Adresse du descripteur:’” 

PRINT ARRPTR(AS) 

PRINT h Adresse de debut de la chalne: 1 ” 

PRINT LPEEK(ARRPTR(A$)) 

PRINT 'Pour verification:'” 

PRINT VARFTR(AS) 

PRINT "Longueur de la chain©: 1 ” 

PRINT DPEEK(ARRPTR(A$)+4) 

PRINT "Chain© de caracteres:'" 

PRINT CHR$( PEEK(V A R PTR (AS))); 

PRINT CHR$(PEEK(VARPTR(A$)+1)); 

PRINT CIIR$(PEEK(VARPTR(A$)+2)) 

PRINT "Octet de remplissage:'” 

PRINT PEEK (VARPTR(A$)+3) 

PRINT "Backtrailcn 1 " 

PRINT LPEEK(VARPTR(AS)+4) 


Hxaminons a present la manicre dont les tableaux (champs) sent 
stockes en memoire : 

On accede aux tableaux de la meme fa?on que pour les chalnes, 
e'est-o-dire par Tin ter media ire d’un descripteur (descripteur de 
tableau). L’adresse de debut du descripteur est egalement obtenu a 
Paide de l'instruction ARRPTR(tab). Les qua ire premiers octets du 
descripteur de tableau contiennent f adresse du debut du tableau. 
Les deux derniers octets indiquent le nombre de dimensions du 
tableau (exemple : quatre pour A(3,4,5,7). 
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Au debut du tableau se trouvent, con ten u dans chaque fois quatre 
octets, les nombres d r elements dans chaque dimension. On commence 
par la dernifene dimension (avec Pexemple precedent A(3,5,5,7), les 
quatre premiers octets contiennent la valour 8, les quatre suivants 
la valeur 6, les quatre suivants la valeur 5 et les quatre derniers 
la valeur 4 (ne pas oublier que 1’indice commence h 0)). 

On trouve ensuite le comenu des differents elements du tableau. 
Pour des tableaux de reels, chaque element occupe 6 octets, pour 
des tableaux d’entiers relatifs (Integer), 4 octets, et pour des 
tableaux de booleens, 1 seul bit. 

S’il s’agii efun tableau de chalnes de caracteres, on n’obtient pas 
directement le contenu des chalnes, mais leurs descripteurs. Ces 
dcscripteurs de chalnes ont le nieme format et la m6me fonction que 
ceux decrits dans la premiere partie. 

Pour §e fa mi I ia riser avec cette organisation des tableaux qui peut 
paraltre confuse au premier coup cToeil (surtout en ce qui concernc 
les tableaux de chalnes de earact£res), il est ccnseille de 
programmer Pexemple suivant; 
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DIM A$(1,0) 

A$(0,0)="A" 

A$(l jOH'BC" 

D=ARRPTR(A$()) 

PRINT "Adresse du descripteur de tab!cau: m D 
F=LPEEK(D) 

PRINT "Adresse du tableau:’”F 
PRINT "Nombre de dimension:*” 

PRINT DPEEK(D+4) 

PRINT "Nombre d'elements dans la 26me dim ;.** 
PRINT LPEEK(F) 

PRINT "Nombre ^elements dans la 1 ere dim.: 1 '* 
PRINT LPEEK(F+4) 

PRINT "Adr. du descripteur pour 0,0:"’ 

PRINT F+8 

PRINT "Adr. dans le descripteur pour 0,0:"' 
PRINT LPEEK(F+8) 

PgINT "Longueur de la chaine 0,0:"’ 

PRINT DPEEK(F+12) 

PRINT "Adr. du descripteur pour 1,0:''' 

PRINT F+I4 

PRINT "Adr. dans le descripteur pour 1,0: Mt 
PRINT LPEEK(F+I4) 

PRINT "Longueur de la chains 1,0:'" 

PRINT DPEEK(F+I8) 

PRINT "Verification pour 0,G: JH 
PRINT VARPTR{A$(0,0)) 

PRINT "Verification pour 1,0:'” 

PRINT VARPTR(AS( 1,0)) 

PRINT "Chaine 0,0:" 

PRINT CHRS(PEEK(LPEEK(F+8))) 

PRINT “Chaine 1,0:" 

PRINT CHR$(PEEK(LPEEK(F+14)»; 

PRINT CIIR$(PEEK (LPEEK(F+14)+1)) 
PRINT "Backtrailer pour 0,0:'” 

PRINT LPEEK{LPEEK(F+8)+2) 

PRINT "Backtrailer pour 1,0:’” 

PRINT LPE£K(LPEEK(F+14)+2) 
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ANNEXE E 


Fonctions sp6ciales / Divers 


Cette partie donne un bref aper^u des appels du VDI et de PAES, 
ainsi que des fonctions OS specialcs. 


ADDRIN 

ADDROUT 

CONTRL 

GB 

GCONTRL 

G1NTIN 

GINOUT 

INTIN 

INTOUT 

PTSIN 

PTSOUT 


Adresse du bloc AES-Adress-Input 
Adresse du bloc AES-Adress-Output 
Adresse du bloc VDI-Cnntrol 


Adresse du bloc AES-Parameter 
Adresse du bloc AES-Control 


Adresse du bloc AES-Integer-Input 
Adresse du bloc A ES-Integer-Output 
Adresse du bloc VDI-Integer-Input 
Adresse du bloc VDI-Integer-Output 
Adresse du bloc VDI-Point-Input 
Adresse du bloc VDI-Point-Output 


L’ecriture et la lecture & Pinterieur de ces blocs est possible a 
I’aide des instructions DPOKE, DPEEK* LPOKE et LPEEK. 


Pour appeler te GEM. m utilise t‘instruction 

CEMSYS : il y a deux appels diff^rents possibles: 

1* GEMSYS n ou CEMSYS (n) 

L’AES est appele apres avoir defini le bloc GCONTRL. 

2. GEMSYS 

L’AES est appele sans modification du bloc GCONTRL. 


* 295 - 








BASIC C/A 


Pour appelcr Ic VDI, on utilise V instruction : 

VDISYS ; il y a efiatemenl deux possibility: 

1. VDISYSn ©u VDISYS (n) 

Le VDI est appdc a pres avoir introduit le numero de la fonction 
dans le bloc CONTRL, 

2. VDISYS 

Le VD! est appcle sans modification du numero de fonction dans le 
bloc CONTRL. 

TODTAB : Adresse de la table dcs paramttrcs ties feaelres. 

Dans cette table, on trouve differents paramctres, tons de la 
taillc d'un mot (16 bits)* qui sent n^cessaires a la gcstion dcs 
fenetres. Grace a une programmation astucicuse* on pent utiliser 
ces parametres. La table est construite de la manicrc suivante : 

LI Handle de la fenetre ou zero 

2 Attribut dc la fenetre 

3 Absciss© X de la fenetre 

4 Ordonnce Y de la fenetre 

5 Largeur de la fenetre 

6 Hauteur de la fenetre 

2. comme I. 

3. comme 1. 

A. comme 1. 

5.1 Paranietre Dummy (-1) 

2 Parametrc Dummy (0) 

3 Abscisse X de Pecran 

4 Ordonnce Y de Pccran 

5 Largeur de Pecran 

6 Hauteur de Pccran 

6.1 Abscisse X du point d* intersection des 4 fenetres 
2 Ordonnce Y du point d’in ter sect ion dcs 4 fenetres 

7.1 Abscisse X de Porigine 
2 Ordonnce Y de Porigine 
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Fonctions OS sped ales. 


BIOS 

XBIOS 

CEMDOS 


Biosff [,1isteparam]) 
Xbio$(f [.listeparam]) 
Gemdosff [Jisteparam]) 


Cm fonctions appellant des routines du TOS (appde aussi Gemdos), 
le systems d'exploitalion specifique an ST, (Le GEM ne represente 
q uq I’interface utilisateur,) 


Explicatim de la syntaxe des fonctions : 

1. Ce sont des fonctions qui retournent un para met re de 32 bits 
(comma habituellement en C). 

2. Test le numcro de fonction. 

3. Ce qui suit depend de la fonction. Beaucoup d 1 instruct ions 
necessitent des parametres qui sont soit des mots (!6 bits), 
soil des mots longs (32 bits). 

Examples: a«XBIOS(20) —> Hardcopy 


aS=SPACES(512) 

a-B!OS(4,0,T:VARPTR(AS),1,1,0) 


[.it I seeteur, a partir du secteur logiquc 1 de Punit6 0 (A:) 
et le memorise dans la variable alphanumerique AS. 

Adresseecran = XBIOS(2) 

Determine Padresse de debut de la memoire-ecran. 
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Lancemcnt dc I’interprEteur RUN-ONLY 

Pour executor un programme avec 1'interpreteur RUN-ONLY^ il 
y a deux possibilites. 

1. Vous laneez PexScution du programme ’GFABASRO.PRG’ 
avec un double-click. 11 apparait maintenant une boite de 
selection de fichiers. Vous ehoisissez et laneez ensuite le 
programme souhaite. 

2. Si vous voulez appeler un programme avec Pmterpreteur 
RUN-ONLY direclement & partir de Penvironnement GEM, 
vous devez effectuer la sequence suivante : 

Vous diquez tout d’abord le programme ’GFABASRO.PRG*. 
Vous ehoisissez ensuite Poption 'Installer une application" 
du menu ’Options'. Vous modifiez maintenant le ’Type de 
document* en ’BAS’, Verifies que le type d’appii^tion reste 
bien ’GEM*. 

Ensuite, vous cliqucz le bouton ’Confirmer*. Enfin, vous devez 
sauvegarder avec Poption ’Sauvegctrder le bureau’ cette confi¬ 
guration sur une disquette systeme. 

Remarque : Cette procedure peut aussi etre effect uee avec 
"G FA BASIC". 


Pour enlever les utim^ros de II gnes des programmes en BASIC ST: 

Sur lit disquette d’origjnc du BASIC GfA se trouve le programme 
’CONVERT.BAS’ ecrit en BASIC GfA. Avec ce programme, il est 
possible d'enlevcr les numdros dc lignes pour des programmes dcrits en 
BASIC ST et de transformer les instructions chances sur unc memo ligne 
en plusieurs lignes d’une seule instruction diaque fois. Le programme 
transforme doit fctre charge dans 1‘Oditcm avee MERGE, Ce programme 
s’cxpliquo dc lui-mcmc ct nc neecssitc done- pas dc description. 
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De par sa puissance et sa 
conviviality, GFA s'est Impose 
comme "le" langage sur ATARI 
ST. Aujourdtiui GFA surpasse 
GFA avec la version 3.0 dont la 
■ richesse et I'environnement ren- 
torce encore sa supr&natie. 


GFA BASIC 3.0 

Totalement r^crli, avec des performances 
considSrabfement accrues, le GFA Basic 3,0 
surpasse tous les Basic corpus pour I'ATARf 
ST. L'lditeur a £T6 modifie: l'6cron principal 
offrche desarmois de nouveaux symbol es: 
heuie en temps r£6L(modifloble dans la b-orre 
de menu), compteur de ligne assetvl ou cur- 
seur, r6moln de verroulilage des majuscules 
ei du bloc riumfirique. De plus, un petit slgle 
ATARI peimet par simple die d'acceder aux 
accessoires de bureau de GEM sans quitter 
rapplicotion en cours, Dans ee mode vous 
definlrez 4 formats differents pour les mots 
cles et variables de Cedfteur: suffixes option- 
neb pour les variables, premiere lettrc en 
copirale pour les mots c!6s et variables... Afln 
de gagner du temps dans les d6veioppe- 
ments, de nouveaux outils vous faciiiteronl la 
tdche: le bloc nurnOrlque permer le (^place¬ 




ment du curseur. I'appel des fonctlons peut 
etre effectui entre autre par la combinalson 
ALTybloc numdrlque. 200 nouvelles fonctlons; 
fonctlons mothematiques, operations sur les 
bits. Interruptions, nouveoux types de varia¬ 
bles.,. Les nOlivettes fonctlons li£es t la defini¬ 
tion des procedures ou des variables font du 
GFA 3.0 un langage structure sans en sulbrr 
les contraintes. Des exeds de Vitesse: pour 
ceitafnes Instructions comme pset, FOR... 
NEXT ou INPUT le gain de temps vo de 100 6 
400%! En moyenne, le GFA 3.0 non compile 
tourne 50% plus vile que son predCcosseur. 
R§f. ST 027.750 F. 


program mation en gfa basic 3.o 

Cest le complement Indispensabte pour ri5aff- 
set des applications poussSes capables de 
lirer parti des fabuleuses possibility de Iq 
version 3.0, Cette bible du programmeur 
exploito fes nouvelies instructions du langage 
teiles que: pregrommotion sti ucfurOe, nou¬ 
veaux types de variable, instructions L?ne*A. 
routines assembleur. bibliotheque AES.,. La 
disquelte otfre de Irfes nombreux exemples et 
une dizaine de programmes utilitaires allant 
de lo sortie de textes en ossembleur a ta 
creation cTIcones. R6f. ML 638. 349 F avec 
la disquetle. ▲ 



I 

GFA BASIC 2.0 

Le GFA Basic s'est impose comme is langoge 
standard sur ST. Rapid e, puissant et simple, 
ii reprSsenre plus de 200 commandos pour 
programmer la souris. les zones d'aierte, les 
menus dSroulanls... Ses carocteristiques: pro- 
, grammalioo structure, Interface GEM ultra 
roplde, interpreter compact, editeur puissant, 
coicul sur 11 chiffres,.. Instructions; REPEAT, 
UNTIL, DO, LOOP, CIRCLE, FILL, TIMER, XBIOS.. 
Bien sur, les programmes crees en GFA Basic 
pe event etre complies avec GFA COMPILA- 
TEUR. R6L ST 012.495 F, 


GFA COMPILATEUR 2.0 

Pour acc^rer vos programmes en GFA Basic 
au niveau du C, Turbo Pascal ou Assembreui. 
one seule solution; te GFA COMPILATEUR. II 
dicuple la vitesse des applications quasi ins- 
tantanement, sons passer par le Run Time ou 
oulres llbrcirles de programmes, sons aucun 
LINKER, en g£nerant du code machine com¬ 
pact et tr&s pertwmant Simple d’utKIsotioa, II 
vous (era bGaClicier de la formidable rapid ite 
du ST (ne compile que le GFA Basic). R6f, ST 
013. 295 F- 



GFA DRAFT PLUS 

GFA DRAFT PLUS esr un programme proles- 
siornef de CAO en deux dimensions permef- 
tant de reatiser schemas de connexion, des- 
sins techniques; croquis Ou plans. Ccpacrres: 
creation de dosslns sur 255 plons. lignos 
vorlont de 0.3 6 4.5 mm en noir ou en couleur 
(sur imprimante, ecran ou troceuQ- GFA 
DRAFT PLUS poss^de des guldes-fignes 
(oimontation), une grille de positionnement 
variable, de nombreuses fonctions: motifs, 
hachures, ograixiissement, deformation, 
rotation, zoom, symbofes lies aux touches 
de fonctions, R£t. ST 017, 990 F. 



GFA ASSEMBLEUR 

Programmes de Jeu animations graphiques 
hyper ropfdes... GFA ASSEMBLEUR 0 
con cu pour satisfalre tous les d^veioppours. 
L'editeur corrige instantonfiment les erreurs. 
Accessible avec la souris, ll permef la recher¬ 
che et le remplacemenr de zones program- 
mobies, de nombreux reglage et de ires 
nombreux raccourcis au clavier. It offre une 
fonction tres appreciable d'autocorrection 
pendant to saisie qul evltc les mauvaises 
surprises a ['execution. L'ossemblage est 
cortdltinnnG et rScursif et poss£de une liste 
impressionnante de caracteristiques comme 
le compaciage des frchiers pour un gain ce 
place appreciable. Avec son debugger le GFA 
ASSEMBLEUR est un outil unique* Rel. ST 033. 
750 F. (d paraitro novembre). 





































Avejc SUPERBASe 2, lo gesifon des donn^es 
deviant unjeu d'onfont. Son extreme convivta- 
tit#, son Ind&iiable puissance permettent 
a c® SGBD de repond is a la pluparl de vos 
besoins, dans les domoines ^application les ► 


SUPERBASE 2: 

LE SGBD VEDETTE 


► 

plus varies. Son concept: permetlre d qulcon- 
que, sans connalssonces preambles, d'eloba- 
rer une gestion de flchiers personnalisye, par 
le simple emploi de la sourls ct dcs outlls de 
GEM. So force: une organisation relalionneile 
rouitl-tichlers, capable de realiser des e?ats 
complexes. Ses capacir§s graphiques permel- 
lent rimportalion d Images, de tableaux, de 
graphlques pour donner 6 vgs documents une 
quality parfaite. Entln, SUPERBASE 2 est dotO 
d'un Gdifeur de fexte fonctionnef comprenant 
les tondlons essentielles: modification de 
marge, tabulations, texles en gras, rtaliqu®, 
souHgnls.. id^oi pour le nailing, vous pourrez 
par exemple personnaliser vas leltres et rap¬ 
ports a portir des Informations de io base de 
donates ou Inversement, cammenfer vos 
masques de soisies ou vos etols d partir de 
fichiers texte. ATARI ST: mt ST 032. AMIGA; 
R£f. MA 366. 990 F. (6 paraitre octobre), 


FACimi D'UTIUSATtON 

* Cammande type "magnetoscope" 

- Selection ins toman §e grfice 0 IQ sourfe. 

* Entlfirement conlr&le par des menus d§rou- 
lants. 

- Fonctlon d&JfAe fl Umpression d'Otlquettes, 

* Sauvegorde des formats compression pour 
utilisation ryp4t6e, 

* Grand Scran de travail permettant des sal- 
sles personnails^es. 

* Echange de donnees ovec d'outres logfcteJs. 

* Modification de la structure des fichiers sans 
aitOrer las enreglstrements. 

CAPACITY lLLIMITlE 

* 16 millions d'enregistrements et 999 Index 
par llchler, nombre de chomps itlimite par 
enreglslremenl, nombre de flchiers fl faulty. 

* Enormes copacff^s d'exptoifotion des fichiers 
er des Index. 

■ Gamma complete de formats numOrlques. 

* Oolendrler 1-9999 A.C. Grand choix de for¬ 
mats de date. 


* Options automatfques de litre, de date et de 
numfirotatton des pages. 

* Las Stats peuvenl comprendre compteurs, 
moyenne, sous-fotoux et totcux. 

* Largeur maxlmale des Stats 255 colonnes. 

• Protection par mat de passe sur 3 niveaux. 

PUISSANT 

■ Tri et Edition de n'lmporte quelfB combinoi- 
son de champs. 

* Champs de type 'formuie’ pour effectual des 
calcuts automallquement et inston toneme nl, 

- dexation sur n'lmporte quel champ en vne 
d'une recherche immediate des enregistre- 
ments ou d'une Edition persannatisfie, 

• Flexibility parfaite de selection et Sexploita¬ 
tion de donnees provenanf de fichiers d iffy- 
rents. 

• Selection et utilisation d'une coiegorle parti- 
cuilire d'enreglsfrement. 

• Verification ct validation des donnees d Id 
saisie pour assurer des enregistremenfs 
exacts. 

























BASIC GFA 


un logitiel pour ATARI ST F 


Le Basic GfA set Id langage Cd programmaiion le plus simple pour exploiter § fond toutes les 
posslbilllds de votre ATARI STF (530 et 1040). II me! A voire disposition plus de 
200 commandos tr£s puissantes pour realiser das logidels en BASIC, avec entre autres. la 
gestior de la souris. des menus, des zones d'alertes, etc. 

Tres rapide et sou pie d'emploi, il vous permettra de creer rapide me nt dee applications de 
qualify pfofessicnneile et d’une finilion parteite. 

LB BASIC GfA tire profit des prlndpes de la programmaiion structure grace A son jeu 
d'instrucfions 1i&> complet (WHILE..WEND. REPEAT..UNTIL, DO..LOOP. etc.). 

Quelquea caracterlstlques : 

• Tr$s rapide (0.4 secondes pour boucle 2r vide FOR..NEXT exOcutde IQCOOfois). 

- interlace avec GEM (creation des menus, gestion de la souris, des fen&tfes, 

• Programmation structure (procedures, variables locales.,.). 

• Interprfiieur compact (56 Koctets) qui laisse une grande place mGmoire disponible mfime 
sur un 520 STF. 

- InlerprAteur RUN-ONLY librement copiabr© permettent I'execution de programmes sans 
passer par 1‘edlieur (pour une commercialisation 6ventueRe). 

- Commandes de graphemes (rempilssage, ellipses, 

- Editeur tres souple avec Indentation automatique, 

- Fondionne dans les Irois resolutions (330 x 200, 640 x 200 et 640 x 400). 

- Gaston des pariph&riques. 

- Gestior du system© (interface avec langage C,,.), 

- Commandes sonores. 

- Prficision de 11 chiffres signiticalils. 

- Commandes de gestior de flchiers. 

- Commandes-systdmes (Call, Timer, Xbios, Void...). 

• Commandos en mode supervisee (acc&s aux plages rPservPes). 

- Etc. 

Que vous vouliez tirer profit de votre ATARI STF ou simplement rGaliser vos propres 
programmes, le BASIC GfA est le langage qu'il vous taut. 

Sysi&me recurs; 

- Un ATARI 520 STF ou 1040 STF. 

- Un monlteur monochrome ou couleur. 

- Une imprlmante (faculialif). 
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